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Chapter 1: Fundamentals of the C-128 


1.1 Introduction to the Commodore 128 


After the success of the C-64, Commodore brought out the Plus 4, 
C-16, and C-116. These computers didn't really offer anything new, but 
the Commodore 128 does. It's really three computers in one: the 
well-known C-64, with mountains of software available for it; also, it 
contains a new computer based on the "success chips" (the 6510 (6502), 
VIC, SID, 6526, etc); and last, it is a CP/M computer. In total, it's a brand 
new computer with lots to offer. 


The C-128 has an 80-column video controller, so it has the potential of 
becoming a professional machine. The VIC chip and the 6510 have been 
changed slightly, though they remain basically the same. It's hard to 
understand why the 65C02 was not selected as the microprocessor for the 
C-128, since it runs faster, is compatible with the 6502, and has additional 
useful commands. This would not have affected the C-64 mode at all. The 
microprocessor which Commodore did choose is the 8500, which can run 
twice as fast as its predecessor, the 6510. 


The C-128 is also a CP/M computer, it uses CP/M 3.0+. CP/M 3.0 is 
the version for 128K computers. The Z-80 processor runs at 4MHz. The 
speed decreases when the bus is accessed, since it was not designed to 
handle this speed. 


We'll be concentrating on both the C-64 and C-128 modes, since they 
are equally important and equally interesting. The most interesting is the 
C-128 mode. As a result, the operating system ROM listing and zero page 
maps are for this mode. Some things can be better explained in the C-64 
mode, such as the VIC chip. 


This book is the latest in a compehensive series of books from 
ABACUS Software & Data Becker. We'll go into each component 
individually and in detail so that the BASIC programmer, whether beginner 
or advanced, can get an in-depth look. The assembly-language programmer 
can get the most out of the information presented as well. Naturally, we 
cannot include all of the C-128's capabilities. This book is not intended as 
an introduction to BASIC. 
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Commodore has provided the 128 with an advanced version of BASIC 
to make use of their advanced computer, BASIC 7.0. Here are some of the 
important features of the C-128: 


* 128K of dynamic RAM 

* 2 x 4K character generator 

* Color video controller (VIC) with hi-res graphics 

* 80-column video controller (VDC) with RGB output 

* Hi-res graphics on the 80-column monitor 

* Synthesizer with three independent voices (polyphonic) 
* 32K BASIC ROM 

* 16K operating system 

* 2 parallel I/O ports 

* 2 output screens available 


At this time we'll be discussing the various input and output ports of the 
C-128. The outputs for the monitors are not discussed here, since a special 
chapter is devoted to the chips that generate the video signals. 


i) 


1.2 The Datasette Connection 


The Datasette connections is virtually identical to that found in the C-64. 
The importance of the Datasette has dropped markedly since the price of the 
disk drive has been reduced. Only Commodore cassette recorders can be 
connected to this interface. The recorders are of high quality and have 
proven very reliable in the past. 


The Datasette gets its power via its connector to the C-128. The data 
travels serially to and from the Datasette through the cable. In addition to the 
lines for read and write data, there is a line for turning the motor on and off 
and a line to check to see if the PLAY button is depressed. The figure gives 
the pin layout for this interface: 


NI 
+5V 
CASSETTE MOTOR 


CASSETTE READ 
CASSETTE WRITE 
CASSETTE SENSE 
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1.3 The User Port 


The user port is a 8-bit parallel interface. The user port can be 
programmed to set any or all of the 8 bits to either input or output. This 
interface is used frequently by experimenters and individuals interested in 
computer hardware. The user port can be programmed from BASIC using 
PEEK and POKE commands. Two handshake lines are available for 
process control. 


To give you an idea of how to program the user port, we have included 
a short example. Our example circuit consists of four switches, four 
light-emitting diodes, eight resistors, and one IC. This should be enough to 
teach you the basic concepts of data input and output using the user port. 
The circuit diagram is shown at the end of this section; it is very simple, so 
we have not documented it here. 


Since there are so many connections on the user port, we must first 
explain which connections are actually available to the user. If you are not 
using an RS-232 cartridge, you can use the following lines without 
affecting the normal operation of the computer: (1, 2, 4-8, 10-12, A-N). 


The layout of the user port lines: 


1 GND 

2 +5V; up to 100mA 

3 -Reset; connected to the processor reset line 

4 CNT1; connected to CNT on CIA1 

5 SP1; connected to SP on CIA1 

6 CNT2; CNT line on CIA2 

7 SP2; connected to SP on CIA2 

8 -PC2; handshake output on CIA2 

9 ATN OUT; control line of the serial bus, comes from 
PA3 on CIA2 

10 9V; 100 mA max. 


11 Opposite pole for 10 
GND 


A GND 

B — -FLAG?; handshake input on CIA2 
C-L PBO-PB7; I/O lines from CIA2 

M __ PA2;I/O line from CIA2 

N GND 
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Back to our example. Data lines PBO-PB7 can be programmed 
individually for input or output. We will use lines PBO-PB3 as input and 
lines PB4-PB-7 as output. This data direction is assigned by simply setting 
the data direction register for data port B at address 56579. A set bit 
indicates output on the corresponding bit of data port B (address 56577); a 
cleared bit indicates input on the corresponding bit of port B. We use the 
following command to set the data directions for our example (bits 0-3 as 
input, 4-7 as output): 


POKE 56579,240 


This sets the high order bits and the corresponding bits of data port B 
are set to output while the rest are set to input. 


How do we use our little circuit? Nothing could be easier! 
PRINT PEEK(56577) AND 15 
returns the values of the four switches and the command 
POKE 56577,X__ 


can be used to turn the LEDs on and off, where the value X may be a 
combination of the values 16, 32, 64, and 128--the lower bits are only used 
for reading. 


If you have a project of your own already planned--you want to help 
your wife and connect the washing machine to the Commodore 128--be 
sure to pay attention to the following so as not to damage your computer: 


When using the user port for input, the input voltage must not exceed 5 
volts. A voltage from 0 to 0.6 volts is interpreted as zero, while a voltage 
from 1.6 to 5 volts is interpreted as one. All voltages between 0.7 and 1.5 
volts will be randomly interpreted as zero or one. 


If you use the user port for output, note that the outputs can drive only 
one TTL input. They cannot directly drive an LED--this would lead to 
damage to the CIA. It is recommended that you use a buffer, as in our 
example. 


Above all, NEVER connect an external voltage to a port with a bit 


programmed as output. Make sure you load the data direction register with 
the proper values so you don't mistakenly program an input bit as output. 
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If you want the computer to power your project, remember that no more 
than 100 mA of current are available. If this maximum is exceeded slightly, 
the cassette recorder will refuse to work properly and then the fuse inside 
the C-128 will blow; finally the primary fuse in the power supply will blow. 
Hopefully, nothing else will be damaged. 


This is intended only as a brief introduction to using the user port in a 
simple application. If you want to use the other lines for more complex 
tasks, see Chapter 4 for more information on the CIA. 


USER-PORT 
207 
Dut 4 * 3300 2 
Ce 
2) et + 
pt 
F eral : 
A 4 Switches 
: We 
= s|¢ | e+ 
K 2 'S 
; sla fe elk 
= sis el? 
Loo 27° He 


4 *3300Q 
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1.4 The RS-232 interface 


The RS-232 interface opens up the whole world of communications for 
the Commodore computer user. Most peripherals have an RS-232 interface, 
such as the laser printer used to print this book. Telephone modems are also 
connected using such an interface. RS-232 is the designation for an 
interface for serial data transfer only--parallel data transfer over the phone 
lines, for example, is not possible. 


In serial transmission, the eight bits of a byte are sent one bit at a time, 
not all eight at once as in parallel data transmission. Serial transmission has 
the advantage that fewer lines are needed; the disadvantage is that it's 
slower. It is well-suited for transferring data via telephone lines because so 
few lines are required. 


The software for using the RS-232 interface is built into the C-128 
operating system. The interface is available from Commodore as a cartridge 
which is inserted in the user port. The cartridge is necessary to make the 
voltage conversions to +12Volts for the true RS-232 standard. 


The RS-232 interface is assigned device address 2 by the operating 
system. If a logical file is opened with device 2, two 256-byte buffers are 
allocated: an input buffer and an output buffer. In the 128 mode these 
buffers are placed at addresses $0C00 and $0D00. In the 64 mode, two 
pointers point to these buffers: $F7/$F8 points to the RS-232 input buffer 
and $F9/$FA points to the output buffer. You must also remember the 
following in C-64 mode: the buffer area is usually located in the upper area 
of unused memory. If a BASIC program uses the RS-232 interface, the 
program should begin with the OPEN command because it will erase all of 
the variables that BASIC stores in upper memory. Furthermore, no check is 
made to see if enough memory space is available. The CLOSE command 
frees the buffers again, but the variables are also erased since a CLR 
command is executed (other files are "forgotten"!). For this reason, you 
should not close the file until the end of the program. Only one RS-232 file 
may be open at a time. 


When an RS-232 data channel is closed, any transmission is broken off 
and the buffer is reset. If you want to wait until the entire contents of the 
buffer have been transmitted, use the command: 


SYS 61604 (JSR $FOA4) in the 64 mode or 
SYS 59372 (JSR $E7EC) in the 128 mode 
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This command should always be used before the CLOSE command. 


The parameters for data transfer are determined with a control register 
and a command register. These two registers are passed together with the 
filename when the file is opened. 


The control register defines the baud rate and determines the number of 
data bits and stop bits transmitted. The baud rate determines the speed of 
the data transfer. 1000 baud means that 1000 bits are transmitted per 
second. The stop bits are sent after the data word (5-8 bits). 


The command register determines the method of transfer, the parity 
checking, and the type of handshake. 


In the control register, the lowest four bits determine the baud rate 
according to the following table: 


Bit 3210 Decimal Baud rate 
0000 0 user baud rate, see below 
0001 1 50 
0010 2 75 
0011 3 110 
0100 4 134.5 
0101 5 150 
0110 6 300 
0111 7 600 
1000 8 1200 
1001 9 1800 
1010 10 2400 
1011 11 3600 (n.i.) 
1100 12 4800 (n.i.) 
1101 13 7200 (n.i.) 
1110 14 9600 (n.i.) 
1111 15 19200 (n.i.) 


The (n.i.) means that the given baud rate is not implemented and 
cannot be attained by the C-128. Therefore we can program baud rates 
between 50 and 2400. 


The number of data bits is determined by bits 5 and 6: 
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Bit 6 5 Decimal Number of data bits 
~ 00..”~—OC~™ 0 8 bits 

01 32 7 bits 

10 64 6 bits 

11 96 5 bits 


Bit 7 Decimal Number of stop bits 
0 ooo Se 0 1 stop bit 
1 128 2 stop bits 


After we have defined the first byte, we must define the second byte, 
the command register. 


Bit 0 Decimal Handshake 
weg A a 7 3-wire handshake 
1 1 X-wire handshake 
Bit 4 Decimal Transfer method 
oO. _ Full duplex 
1 16 Half duplex 
Bit 765 Decimal Parity checking 
x x0 0 No parity checking 
no 8th data bit 
001 32 Odd parity 
011 96 Even parity 
101 160 8th data bit always 1 
no parity checking 
111 224 8th data bit always 0 


A comment about handshaking: if you select a 3-wire handshake, the 
control lines CTS (Clear To Send) and DSR (Data Set Ready) are not 
checked when sending and receiving. This means that the computer sends 
the data (to a printer for example) whether the receiver is ready to process 
the data or not. If we want the device to be able to stop the transmission, we 
must select X-wire handshake. The two control lines just mentioned must 
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be wired; the assumption is that the receiver can service these lines. If two 
computers are being connected, a 3-wire handshake is usually sufficient. 


Let's go through an example: We want to open an RS-232 data channel 
with the following parameters: 


* 2400 baud 

* 7 data bits (ASCII) 
* 2 stop bits 

* No parity checking 
* 8th data bit always 0 
* Full duplex 

* 3-wire handshake 


After you have determined all the bits from the above tables, open the 
channel with the following OPEN instruction: 


OPEN 1,2,0,CHR$(10+0+128)+CHR$(0+0+224) 
The second byte in the OPEN instruction is usually CHR$(0). 


1.4.1 Programming the baud rate 


The various baud rates are implemented through the timers in the CIAs. 
You can also program baud rates that are not in the table, such as 111 baud. 
The maximum rate of 2400 baud cannot be exceeded, because the software 
in the operating system is too slow. The CIAs (or the timers) generate an 
NMI after a certain amount of time dependent on the baud rate. If we want 
to use our own baud rate, we can pass the corresponding timer values as the 
third and fourth characters of the filename in the OPEN command. The 
timer values can be obtained from the following formula: 


T = 492662/BAUD - 101 


The value which we get from this formula must be split into high and 
low bytes and then passed as the third and fourth characters of the filename. 
In the control register we use a zero instead of the baud rate (user baud 
rate), so that the operating system knows that we want to use our own baud 
rate. 
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The following example uses the same parameters as the previous 
example, except that the baud rate is set to 1000. 


100 BAUD=1000 

110 T=492662/BAUD-101 

120 TH=INT(T/256): TL=T AND 255 

130 OPEN 1,2,0,CHRS$ (128) +CHRS (224) +CHRS (TL) + 
CHRS (TH) 


Baud rates between 8 and 2400 baud can be obtained with the user 
baud-rate programming option. 


1.4.2 Reading the status variable ST 


The status variable ST is used to determine if any errors occurred while 
transferring data via the RS-232, just as with the serial bus. The meaning of 
ST is somewhat different for the RS-232, however. The variable ST is reset 
(to zero) each time it is read in BASIC. Therefore, if you'll be checking the 
status variable multiple times you must store the value in a temporary value: 
A=ST. Now A can be checked multiple times without resetting the status 
variable ST. The status value should be available for multiple checks, so it 
must be stored in a temporary variable. 


Here is the bit by bit breakdown of the status variable ST. A set bit 
indicates that the given event occurred. 


ed 


Description 

Parity error 

Framing error 

Receiving buffer full 

Receiving buffer empty 

CTS (Clear To Send) signal missing 
Unused 

DSR (Data Set Ready) signal missing 
Break signal received 


NDAMNHRWNH © 


In the C-64 mode you can assign the memory area the RS-232 input 
and output buffers will be located. In the C-128 mode these buffers have 
Coe locations. The pointers for these buffers are at addresses 

F7-$FA. 


12 


Abacus Software C-128 Internals 


a 


1.5 Cartridge Port 


The cartridge port--also known as the expansion bus--is one of the most 
useful interfaces on the C-128. ROM cartridges can be inserted in this port; 
they might be games, BASIC extensions or something altogether different 
such as a MIDI interface. The address lines as well as the data lines of the 
computer are available on this interface. For this reason the computer is also 
very sensitive to damage here. 


First the pinout of the 44-pin connector: 


1 GND 

2-3 +5V 

4 -IRQ; connected to the processor IRQ line 

5 CR/-W; connected to the processor R/-W line 

6 DOT CLOCK; dot raster clock for the VIC, about 7.83 MHz 
7 -I/O1; usually =0 in address range $DE00 to $DEFF 

8 -GAMB; input to AM (Address Manager) 

9 -EXROM; as above 

10 -1/O2; usually =0 in area $DFOO to $DFFF 

11 -ROML; output from AM 
12 BA; signal from VIC, indicates the validity of read data 


13 -DMA,; input. O=bus system reserved for external access 
14-21 CD7-CD0; data bus 

22 GND 

A GND 

B -ROMH; output from AM 

C -RESET 

D ‘--NMI 

E 02; system clock output 

F-Y CA15-CAO; address bus 


Z GND 


Both the 128 and 64 modes test to see if the cartridge port is occupied 
when the computer is turned on or reset. If the cartridge port is occupied, 
the memory configuration is set appropriately in the address manager, and 
control of the computer is given to the cartridge and not the built-in ROM 
operating system. This is a very user-friendly feature, since the user need 
only insert the cartridge and turn the computer on to start the application. 
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EXPANSION PORT 


2221 20 1918 17 16 15 141312 11109 8 76 5432 1 
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USER PORT 


123 4 5 67 8 9101112 
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PIN SIGNAL 


U 
A 
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2 
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5 
6 
7 
8 
9 


SER. ATN IN 
9 VAC 

9 VAC 

GND 





ZZ2ranxacrmmodowosy 





15 





CHAPTER 2 


Abacus Software C-128 Internals 
eg 


Chapter 2: The VIC Chip 


As you already know, the Commodore 128 has three plugs for 
connecting monitors. Theoretically, all three can be used at once, but this 
wouldn't be terribly useful, since the two 40 column screens would be 
identical. 


Two of the three connectors are connected to the VIC chip. The VIC 
chip has been well-proven in the Commodore 64. The VIC chip is well 
liked since it has many fine features like the ability to display sprites. The 
VIC chip in the Commodore 128 has two additional registers which will be 
described later. It runs the display in the 40-column mode as well as BASIC 
7.0's representation of graphics. 


A television can be connected via the RF connector. This is a relatively 
popular solution because of the low cost. Depending on the television, the 
screen quality may also be satisfactory, though it is not suited for long 
periods of working with the computer. This is because the carrier frequency 
is first modulated by the computer (it must be "broadcast") and then 
demodulated by the television receiver. The picture quality naturally suffers 
as a result of all this manipulation. 


If your wallet has recovered from the purchase of the Commodore 128, 
you might consider a color monitor such as the Commodore 1702. This 
monitor uses the second connection: the composite video output. Here ‘the 
signal does not need to be modulated or demodulated--pure screen 
information plus the synchronization pulse is sent to the monitor. These 
monitors are a bit more expensive, but they offer significantly better screen 
quality because the screen resolution is better. 


The VIC chip in the Commodore 128 has the same address as the 64, 
which makes sense, since it must also be accessed in the 64 mode. For the 
sake of compatibility the addresses must remain the same. 


Start address: $D000 


The VIC-II chip (we will call it VIC-II since it is not identical to its 
predecessor) cannot function with the 2MHz clock frequency (fast mode). 
The VIC-II chip contains the system clock. As you may know, the VIC chip 
uses the clock gaps (times in which the processor does not access the 
memory) in order to get characters out of the video RAM to refresh the 
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picture. This is done so as not to slow down the processor. If the processor 
is clocked at 2MHz, the operating speed is doubled and the clock gaps are 
halved. These clock gaps aren't long enough to access memory. The VIC-II 
chip switches the video output off and you get a single color picture (which 
you may recognize from cassette loading). The video controller responsible 
for the 80-column screen is not affected by this. It continues to display its 
80 columns per line. Switching from 1 to 2MHz can also be done in the 64 
mode! To do this, you must set bit 0 in register 48 of the VIC. 


POKE 53296,1 corresponds to the command FAST 
POKE 53296,0 corresponds to the command SLOW 


These two POKEs can also be used in the 64 mode. The FAST 
command is a bit different from the POKE command; the BASIC 7.0 
command FAST also causes the 40-column screen to be automatically 
switched off, so that the colorful garbage caused by the 2MHz mode does 
not appear on the screen. 


The VIC chip not only performs all the tasks required to create a screen, 
it also handles the timing for the dynamic memory. 


Here are some features of the VIC chip: 


* 16 colors 

* graphics-capable with 320x200 pixels (hi-res mode) 

* Four color graphics with 160x200 pixels (multi-color mode) 
* Multi-color mode possible in text mode 

* Display and management of 8 sprites - 

* Raster and sprite-collision interrupt 

* Creation of a standard NTSC signal 

* Movable video RAM and character generator 

* Independent handling of 16K of dynamic RAM 
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The pin layout of the VIC-II chip: 


All; 
A0/A8--A5/A1 
A6-A7; 


Processor data bus 

O when one bit of the IMR and the IRR are equal 
Input, Light pen strobe 

Processor-bus action only takes place if CS=0 
O = taking over data from bus 

O = data not ready at receiving device 
+12VDC 

Color information output 

Impulses to synchronize lines and screen 

0 = VIC uses system bus, 1 = bus free 

Clock output 

Dynamic RAM control 

as above 


Input color frequency 

Input dot frequency 

Processor address-bus 

3; Multiplexed (video-) RAM address-bus 
(video-) RAM address-bus 

Processor address-bus 

Data from color RAM 

Processor data-bus 

+5V 

Keyboard-Interface-Control. These pins go 
directly to the (expanded) keyboard. 


2.1 Register Layout of the VIC Chip 


The VIC-II chip has 49 registers at the address $D000+(the register 
number). These registers are individually described: 


REG 0 


REG 1 


Sprite register 0: X-coordinate 
Here are 8 bits of the X screen coordinate of sprite 0. Bit 9 
(overflow bit) is found in register 16 of the VIC chip. 


Sprite register 0: Y-coordinate - 

This register contains the Y-position of sprite 0. The 
Y-coordinate does not need an overflow (9th bit) because the 
maximum Y-value is 199. 
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Registers 2 through 15 correspond to registers 0 and 1 for sprites 1 to 
7. Each sprite has a register pair in the VIC chip: Sprite 0 has register pair 
0/1, sprite 1 the pair 2/3 ... sprite 7 the pair 14/15. 


REG 16 


REG 17 


REG 18 


REG 19 


REG 20 


REG 21 


REG 22 


REG 23 


MSb of the X-coordinates (note that the lower-case b in MSb is 
intentional! [This is to indicate bit, not byte]). This register 
contains the overflow bits from the X-coordinates of the sprites. 
A set bit means that the MSb (9th bit) of the corresponding sprite 
is set, 0 means not set. The MSb of sprite 0 is represented by bit 
0, the MSb of sprite 7 is set by bit 7. 


Control register 1 

Bit 0-2 : Offset of the upper screen border in raster lines. 
Bit3 : 0=24 lines, 1=25 lines 

Bit4 :O=screen off 

Bit5 : 1=standard bit-map mode (graphics) 

Bit6 : 1=extended color mode (text) 

Bit7 : Carry from register 18. 


Raster IRQ 
Number of the raster line at which a raster IRQ should be 
generated. The 9th bit of the raster line is found in register 17. 


X-portion of the screen position at which the beam was found 
when a strobe was generated. 


As register 19, but the Y-portion. 


Sprite enable 

This register indicates whether a sprite is turned on (bit = 1) or 
off (bit = 0). Sprite 0 is represented by bit position 0, sprite 7 by 
bit 7 of the register. 


Control register 2 

Bits 0-2: Offset of the left screen border in raster dots. 
Bit 3: 0=38 characters, 1=40 characters (horizontal) 
Bit 4: Multi-color mode (graphics) 


Sprite expand X 


The sprites can be doubled in the x direction by setting the 
corresponding bit in this register. 
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REG 24 


REG 25 


REG 26 


REG 27 


REG 28 


REG 29 


REG 30 


REG 31 


REG 32 


Base address of the character generator and video RAM 
Bits 1-3: Address bits 11-13 for the character RAM base 
Bits 4-7: Address bits 10-13 for the video RAM 


IRR: Interrupt Request Register 

This register indicates which register generated an interrupt. 
Bit 0: generator is REG 18 

Bit 1: generator is REG 31 

Bit 2: generator is REG 30 

Bit 3: generator is pin LP 

Bit 7: =1 when at least one other bit is one 


IMR: Interrupt Mask Register 
Layout like REG 25. If at least one bit in the IRR and IMR agree 
(IRR AND IMR<>0), an interrupt is generated (pin IRQ=0). 


Priority register (sprites) 
If the corresponding bit is set, the background character has 
precedence over the sprite. 


Multi-color register (sprites) 
If the bit representing a given sprite is set, that sprite is 
represented in multi-color mode. 


Sprite expand Y 
The sprites can be doubled in the Y-direction by setting the 
appropriate bit in this register. 


Sprite/sprite collision 

Each sprite is assigned a bit. If two sprites touch each other, the 
two corresponding bits are set. These bits remain set until they 
are explicitly cleared! At the same time, bit 2 in the IRR is set. If 
bit 2 in the IMR is also set, an interrupt will be generated. 


Sprite/background collision 

Each sprite is assigned a bit. If a sprite touches the background, 
the corresponding bit is set. The bits remain set until they are 
explicitly reset! Bit 3 in the IRR is set; if bit 3 in the IMR is also 
set, an interrupt is generated. 


Exterior color (border color) 
The border color is set in this register (0-15). 
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REG 33 Background color registers 0-3 ; 
to Background color register 0 determines the background color in 
REG 36 the "normal" text mode. If the multi-color mode is enabled, it 
accesses registers 1-3. 


REG 37 Sprite multi-color color 0/1 
an Sprites which are represented in multi-color can assume the back- 
REG 38 ground color, the sprite color, or the multi-color 0 and 1. 


REG 39 Color sprite 0-8 
ra ‘ The colors for the individual sprites are placed in these registers. 
REG 46 


REG 47 Keyboard control register 
This register contains the status of the four keyboard interface 
pins KO to K3. Bits 0 to 3 are responsible for this. Bits 4-7 are 
unused and are always 1. 


REG 48 2MHz bit 
Bit 0 of this register determines whether the computer operates at 
2MHz or 1MHz. Bits 1-7 are unused. If the bit is set, all accesses 
from the VIC-II chip to the memory are halted, except for 
refreshing the dynamic RAM. 


NOTE: All of the following example programs must be entered in the 
64 mode. This is necessary because the BASIC 7.0 interpreter makes inputs 
to the VIC-II chip practically "ineffective". For example, if you switch the 
graphics on with the necessary POKE instructions, you will see only a flash 
on the screen. The same applies to programming sprites, etc. The reason for 
this is that the BASIC 7.0 interpreter must have its own method of interrupt 
control. You can, for example, create a moving sprite with the MOVSPR 
command; this can be done only with BASIC 7.0 using the interrupts. We 
will tell you how you can get around this interrupt control in Section 7.5. 


But even when the sprites aren't moving, the coordinates are always 
corrected by the BASIC 7.0 interpreter. You are probably asking yourself 
why you should program in the 64 mode when you own a 128. This is a 
good question, but the VIC chip can be programmed just as well from the 
64 mode as it can from the 128 mode. We will use "simple" POKE 
commands in the following sections, in order to give examples as close to 
assembly language as possible. Since programming the VIC chip would be 
ruined by the BASIC 7.0 interpreter, we will try out the following examples 
in the 64 mode. This will allow us to learn and understand the operation of 
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the VIC chip. Machine language programmers have to feel their way 
through step by step. In machine language (in the 128 mode), you can get 
around the annoying sprite corrections by changing the IRQ vector. 


2.2 The VIC Operating Modes 


As you may already know and can gather from the many registers, there 
are a number of possible ways to arrange the screen with the VIC chip. It is 
quite easy to do this in the 128 mode thanks to easy-to-use BASIC 7.0 
commands. In the 64 mode, it is somewhat more difficult to switch between 
the various modes since it must be done with POKE commands. 
Programming sprites in the 64 mode is also more complicated than it is in 
the 128 mode, in which you can easily move them about with the MOVSPR 
command. If you think the layout of the VIC chip doesn't interest you since 
you don't want to program in the 64 mode, you may not be right. If you 
want to program in machine language, you will need to learn more about the 
register layout of the VIC, which is what we want to do now. 


2.3 Sprites 


Sprites are movable, freely-definable figures with a resolution of 24 by 
21 points. Sprites can be represented in either the two-color mode (sprite 
color and background color) or the multi-color mode (four colors, but the 
resolution is cut to 12 by 21 points). The VIC chip can manage 8 sprites, 
which can be moved simultaneously on the screen. The sprites can assume 
their positions in a frame of 512 by 256 raster points, which means that 
sprites can be moved completely outside of the screen. 


If a sprite is defined in the two-color mode, a set bit means a set point in 
the color defined for this sprite. An unset bit means transparent (the 
background color will be displayed). In the multi-color mode, two bits 
apply to one point, which means that one can define four colors. The 
possible bit combinations refer to the following colors: 


00: Transparent, background color (REG 33) 


01: Multi-color register 0 (REG 37) 
11: Multi-color register 1 (REG 38) 
10: Sprite-color register (REG 39-46) 
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You see that two colors (multi-color registers 0 and 1) are defined to be 
the same for all sprites. The sprites can differ from each other in at most one 
color. But let's define a sprite "from scratch". We won't use the BASIC 7.0 
commands, but only the commands available to us in the 64 mode (which 
can be used in the 128 mode as well). First we must define a sprite by 
means of DATA statements (the sprite editor does not exist in the 64 mode). 
These DATA lines should look like the following: 


1000 DATA 000,000,000 
1010 DATA 000,000,000 
1020 DATA 000,000,000 
1030 DATA 000,000,000 
1040 DATA 000,000,000 
1050 DATA 000,000,000 
1060 DATA 000,000,000 
1070 DATA 003,255,255 
1080 DATA 000,002,000 
1090 DATA 192,170,128 
1100 DATA 194,150,080 
1110 DATA 234,150,080 
1120 DATA 194,170,168 
1130 DATA 192,170,168 
1140 DATA 000,032,128 
1150 DATA 000,170,160 
1160 DATA 000,000,000 
1170 DATA 000,000,000 
1180 DATA 000,000,000 
1190 DATA 000,000,000 
1200 DATA 000,000,000 


In the normal development of a sprite, you would draw out the figure 
on paper before programming, and divide the paper up into a grid of 24 by 
21 points. This gives 21 lines of 24 points each. These 24 points are then 
grouped into three 8-bit groups which can then be stored as bytes. Every 
filled box means a set bit, an empty box means an unset bit. In the 
multi-color mode this is more difficult. You must insert one of four bit 
combinations from a self-defined color table. 


Note: You must first consider what colors you will define in common to 


all sprites, and which you want to have as the individual color for each 
sprite. 
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Once you have done this you can calculate the individual bytes and 
write them down. These values are then given in rows of DATA lines, as in 
our example. Our example sprite is a helicopter. You probably didn't 
recognize it in the DATA statements. 


2.3.1 Address of the sprites 


We have our data and now we need to store it someplace. There is a 
pointer for each sprite which tells the VIC chip where it can find the sprite. 
These pointers are found in addresses 2040 to 2047, immediately following 
the video RAM. Each sprite needs 3x21=63 bytes. You have probably 
already noticed that each pointer need only be one byte long and does not 
give an absolute address. It gives the position "pointer times 64," which 
accounts for exactly 16K. If you move the start address of the video RAM, 
the sprite pointers also move as well as their start addresses. For the sake of 
simplicity, let us assume that sprite number 1 is defined at address 
13*64=832. 


POKE 2041,13 


Address: 2040 2041 2042 2043 2044 2045 2046 2047 
Sprite#! O 1 2 3 4 5 6 #7 


You can assign this address to other sprites, meaning that several 
sprites will have the same appearance. But to display our sprite, we first 
need to POKE the values from the DATA statements into the correct 
memory addresses. 


10 FOR I=0 TO 63 

20 READ D 

30 POKE 13*64+I,D 

40 NEXT 

50 POKE 2041,13: REM SPRITE 1 AT ADDRESS 832 
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2.3.2 Turning on the sprite 


When you start the program, you will notice that something is still | 
missing. We need to explicitly turn our sprite on! The best way to do this is 
with a logical OR of the corresponding bit in register 21, since a direct 
POKE would erase any other sprites. 

POKE 53248+21,PEEK(53248+21) OR 2 
turns sprite 1 on. If you want to turn on sprites 0 and 7, for example: 
POKES3248+21,PEEK(53248+21) OR 1 OR 128, or better yet: 
POKES53248+21,PEEK(53248+21) OR 129. 
To turn off sprite 1: | 

POKE 53248+21,PEEK(53248+21) AND NOT(2),. 
If you want to turn off several sprites at once, such as sprites O and 7, 
POKE 53281+21,PEEK(53248+21) AND NOT(1 OR 128) 

it can be done by a logical OR of the sprites to be turned off, which is then 
negated and then ANDed with the original value. In our example program, 
we want to turn our sprite on: 
60 POKE 53248+21,1: REM TURN ON SPRITE 1 
Sprite: 76543210 
Bit 76543210 
2.3.3 Color 

We want to be able to define the color of our sprite, otherwise we might 
not be able fo see it: 

70 POKE 53248+39+1, 5: REM COLOR = GREEN 


This is done in registers 39 through 46: register 39 defines the color for 
sprite 0; register 46, correspondingly, defines the color of sprite 7. 
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The following colors are available: 


0 Black 8 Orange 

1 White 9 Brown 

2 Red 10 Light red 

3 Cyan 11 Grey 1 

4 Purple 12 Grey 2 

5 Green 13 Light green 
6 Blue 14 Light blue 
7 Yellow 15 Grey 3 


2.3.4 Position 


After you have made the color specification and started the program 
with RUN, you still won't see anything because the sprite is positioned 
outside of the screen area. Registers 2 and 3 must be loaded with the 
appropriate values in order to assign a position to sprite 1: 


80 POKE 53248+2, 50: REM X-COORDINATE 
90 POKE 53248+3, 70 : REM Y-COORDINATE 


You can move your sprite across the whole screen with a loop. Many 
readers may start to groan here. You know that BASIC 7.0 handles all of 
the work with sprites for you. But there's even more that must be done in 
64 mode. If you want to position the sprite at X-coordinate 310, for 
example, eight bits aren't enough. Here you must set the ninth bit of the 
corresponding sprite in register 16 (or reset it if you are moving the sprite 
from right to left). We position our sprite at X-coordinate 310: 


POKE 53248+16, 2: REM SPRITE 1 - SET 9TH BIT 


If you want to avoid disturbing other sprites with this command, you 
must again address the appropriate bit explicitly: 


POKE 53248+16, PEEK(53248+16) OR 2 


Let's move our sprite from left to right across the screen: 
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FOR I=0 TO 400 
POKE 53248+2, I AND 255 : 

REM MASK OUT LOWER 8 BITS 
POKE 53248+16, PEEK (53248+16) AND NOT 2 OR 
2*ABS (I>255) 
NEXT I 


The line just before the last is a bit complicated: The most-significant bit 
of sprite 1 is reset to zero by AND NOT 2. The corresponding bit is again 
set if necessary (X-coordinate greater than 255) by OR 2*ABS(I>255). 
This is all done without disturbing the other bits. 


2.3.5 Expanding a sprite 


Another important and useful capability is the ability to display sprites 
twice as large in the horizontal and/or vertical directions. The VIC chip has 
two registers available for this purpose: X-expand and Y-expand. Again, 
each sprite is represented by a bit. By setting this bit, the corresponding 
sprite is expanded in the X or Y direction. In our example we will expand 
our sprite in both the X and Y directions: 


POKE 53248+23,2 : REM DOUBLE SPRITE 1 IN Y-DIRECTION 
POKE 53248+29,2 : REM DOUBLE SPRITE 1 IN X-DIRECTION 


Since we can expand a sprite in both the X and Y directions, we have 
the ability to enlarge our sprite by a factor of four. 


2.3.6 Background 


You have no doubt noticed when entering or changing the example 
program that the sprite does not scroll along with the rest of the screen. 
Sprites also remain visible when the screen is cleared. The sprites are 
ultimately determined by their position. If you want to remove a sprite from 
the screen, you can either a) turn it off, or b) position it outside the screen. 


Sprites have another noteworthy property. If you move the text cursor 
over a Sprite and start typing, the sprite covers the letters--the letters are 
visible only where the sprite is transparent. It almost has the appearance of a 
three-dimensional picture. 
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The sprites and the background can be imagined as two separate layers. 
It is possible to inform the VIC chip that we do not want to have individual 
sprites in the foreground. There is a priority level for each sprite that tells 
the VIC whether the sprite has precedence over the background or not. In 
our example, the letters would appear on top and the sprite would be 
covered up. In order to move a sprite behind the background, the 
corresponding bit in register 27 must be set. We want to take away the 
priority of our helicopter: 


POKE 53248+27,2 


Now the helicopter appears behind the letters. In order to put it in front 
again, we need only reset the bit: 


POKE 53248+27,0 
Register 27 : Background priority 


Bit 76543210 
Prior: 76543210 


You have no doubt noticed that all registers are organized in the same 
manner. One byte is all that is required in order to represent all eight 
possible sprites. Bit 0, the lowest order bit, always stands for sprite 0 while 
bit 7 always corresponds to sprite 7. 


You may be wondering what happens when several sprites occupy the 
same space on the screen. There are set rules for determining the appearance 
of the result. The sprite with the lowest number appears on "top" of the 
others. If sprites 0 and 6 come in contact with each other, for example, all 
of sprite 0 will be visible, while at best only an outline of sprite 6 will be 
visible. Sprite 6 will appear on top of sprite 7, sprite 5 on top of sprite 6, up 
to sprite 0 on top of sprite 1. The lower the sprite number, the higher the 
priority. 


2.3.7 Collision: Sprite-sprite 


It is also possible that two sprites will come into contact with each 
other, that is, they have at least one point in common. Often it is desirable 
to be able to detect such contact, especially for games. The VIC has a 
register just for this purpose: Register 30 gives the information if sprites 
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have collided, and if so, which sprites were involved. If, for example, 
sprites 0 and 6 collide, bits 0 and 6 of register 30 are set. If more than two 
sprites encounter each other, the bits of all the sprites involved are set. In 
our example--if sprites 0 and 6 encounter each other--we would get the 
following result: 


PRINT PEEK(53248+30) 
65 


The number 65 is a combination of bits 0 and 6 set: 64+1=65. After 
you have read register 30, you must set it back to 0, or you will not be able 
to detect future collisions since the register is not automatically reset. 


POKE 53248+30,0 
2.3.8. Collision: Sprite-background 


Sprites can also come into contact with the background characters. It is 
possible to check to see if our helicopter comes into contact with the cursor 
or not. This test is independent of whether the sprite has precedence over 
the background or not. If a sprite does contact some part of the background, 
the corresponding bit in register 31 is set. Here the same applies as for 
register 30: You must clear the register after reading it. The register can only 
tell that the given sprite has come into contact with a background character, 
it cannot tell you which character, though that usually doesn't matter. This 
can be determined by the position of the sprite. 


2.3.9 Multi-color sprites 


Certainly the "icing on the cake" of sprite programming is the ability to 
define sprites in multi-color. Multi-color simply means four-color. One 
color is the background color; two additional colors are the same for all 
eight sprites. If you want to display several sprites in multi-color, you must 
consider carefully what colors you will choose. You must then define these 
in the two fixed sprite color registers. The multi-color mode does have a 
price: the resolution is cut in half. This usually does not present a problem 
since the resolution is usually more than enough. This gives you a 
resolution of 12x21 points. The size of the sprites remains the same since 
the points themselves become twice as large--two bits define one color. 
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The various bit combinations have the following meanings: 


00 The point has the background color (no point is visible) 
01 The color is taken from register 37 

10 The color is taken from the given sprite color register 

11 The color is taken from register 38 


We must tell the VIC chip which sprites are multi-color. This is 
naturally done bit by bit, in register 22. To display our helicopter as 
multi-color: 


POKE 53248+22,2 


And look: it appears in shimmering color. The helicopter looks so ugly 
because we defined it as a single color sprite. The various bit combinations 
of a monochrome sprite naturally have a different character than they do 
with a multi-color sprite. We'll now list the entire program responsible for 
bringing our helicopter to life. This program will help show you how 
sprites are programmed, whether in BASIC or machine language. 


10 REM SPRITE DEMONSTRATION PROGRAM 

20 V = 53248: REM START ADDRESS OF THE VIC CHIP 

30 POKE V+32, 15; POKE V+33,14:REM BACKGROUND COLOR 
40 PRINT"<CTRL-7>": REM <CRTL> KEY AND 7 


50 POKE V+21, 3 : REM ENABLE SPRITE O AND 1 

60 POKE V+28, 3: REM SPRITE O AND 1 IN MULTICOLOR 
70 POKE V+39, 6 : REM COLOR FOR SPRITE 0 = BLUE 

80 POKE V+40, 2: REM COLOR FOR SPRITE 1 = RED 


90 POKE V+37, 14: REM MULTI-COLOR 1 = LIGHT BLUE 
100 POKE V+39, O: REM MULTI-COLOR 2 = WHITE 

110 POKE 2040, 13: REM SPRITE 0 AT 832 TO 895 

120 POKE 2041, 13 : REM SPRITE 1 THE SAME 

130 FOR I = 0 TO 62: REM NUMBER OF DATA ITEMS 

140 : READ X : REM READ THE VALUES 

150 : POKE I+832, X : REM STORE THE VALUES 

160 NEXT I 

170 POKE V+0,25:POKE V+1, 50:REM POSITION SPRITE 0 
180 POKE V+2, 60:POKEV+3,50 :REM POSITION SPRITE 1 
190 FOR D = I TO 2000 : NEXT:REM DELAY LOOP 

200 FOR I = 0 TO 200 : REM MOVE 

210: POKE V, I=24 : REM X-COORD. SPRITE 0 

220: POKEV=2, 200-I :REM Y-COORD. SPRITE 1 
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230% POKE V=1, 40+I: REM Y=COORD. SPRITE 0 
240: POKE V+3, 200-I:REM X-COORD. SPRITE 1 
250 NEXT 

260 GOTO 200: REM MOVE CONTINUALLY 


1000 DATA 000,000,000 
1010 DATA 000,000,000 
1020 DATA 000,000,000 
1030 DATA 000,000,000 
1040 DATA 000,000,000 
1050 DATA 000,000,000 
1060 DATA 000,000,000 
1070 DATA 003,255,255 
1080 DATA 000,002,000 
1090 DATA 192,170,128 
1100 DATA 194,150,080 
1110 DATA 234,150,080 
1120 DATA 194,170,168 
1130 DATA 192,170,168 
1140 DATA 000,032,128 
1150 DATA 000,170,160 
1160 DATA 000,000,000 
1170 DATA 000,000,000 
1180 DATA 000,000,000 
1190 DATA 000,000,000 
1200 DATA 000,000,000 


It is certainly more complicated to prepare multi-color sprites than 
single-color sprites, in which a point on paper corresponds directly to a 
point on the screen. Fortunately there are sprite editors which make the 
work a good deal easier. Such an editor is built in to BASIC 7.0 
(SPRDEF). But as we said before, it is very important for the machine 
language programmer to know how sprites are programmed without BASIC 
commands. 


The sprites that you define and use with the sprite editor built into 
BASIC 7.0 are Stored in RAM at $0E00-$1000. 


Sprites in any of the possible modes can be covered by the background, 
whether it be in text, graphic, or multi-color graphic mode. 


34 


Abacus Software C-128 Internals 
2.3.10 Interrupts through the VIC chip 


The VIC chip is capable of generating interrupts. Interrupts temporaily 
halt the machine language program currently being executed by the 
microprocessor because a certain event occurred. There are four different 
sources of interrupt on the VIC: 


* The lightpen 

* The raster-line interrupt 

* A sprite/sprite collision 

* A sprite/background collision 


Because of the VIC chip's ability to generate raster-line interrupts, it is 
possible for BASIC 7.0 to mix text and graphics (by means of the 
GRAPHIC command). To program an interrupt, you set the appropriate bits 
in the IMR register specifying which interrupt source(s) you want. In 
addition, you must change the interrupt vector to your own interrupt routine 
so that you can react appropriately to the interrupt. 


If the interrupt comes from CIA1, you must branch to the kernal 
routine. The CIA1 generates interrupts every sixtieth of a second in order to 
read the keyboard. Otherwise you can branch to you own routine. You can 
determine if the CIA1 caused the interrupt by reading register 13, ICR 
(Interrupt Control Register). 


If the interrupt came from the VIC chip, bit 7 of the IRR (Interrupt 
Request Register) is set in addition to the bit of the generator. You need 
only test for the generator bit if multiple interrupts are enabled on the VIC. 


If you use only the raster-line interrupt, you must check bit 7. You can 
specify which raster line is to cause the interrupt by setting registers 18 and 
17 (overflow). When this line is encountered while the screen is being 
constructed, an interrupt is generated. By the time the routine reacts, the 
beam creating the picture is already a few lines farther down. You must be 
sure to take this time delay into consideration. 


The possibilities which interrupt programming offers, as well as the 


flood of programming tricks to be mentioned and explained would go far 
beyond the scope of this book. 
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2.3.10.1 More than 8 sprites on the screen 


We will use the following program as a small example of what can be 
done with the raster-line interrupt. The raster-line interrupt makes it possible 
to display more than the usual 8 sprites on the screen at one time. The 
control program need only exchange the data for the sprites with an area 
reserved for this purpose or redefine the pointers at a specific raster-line. 


If you display more than 8 sprites using the raster-line interrupt, the 
freedom of movement in the vertical direction is somewhat limited. If you 
use 16 sprites, for example, the first eight sprites must move above the 
middle line (0--99) while the second set of eight must be satisfied with the 
lower half (100-199). The sprites can move freely in the horizontal 
direction. For many games the vertical restriction is not a problem so you 
can make extensive use of the raster-line interrupt. 


Our example program displays 16 sprites in various colors and moves 
them across the screen. Eight sprites are to be displayed in the upper half of 
the screen. If the video controller has displayed the upper half, we generate 
an interrupt. In the interrupt routine we set the parameters for the sprites 
which are to be displayed in the lower half of the screen. At the same time, 
we must prepare the next raster interrupt for the end of the screen so that we 
can again switch back to the upper 8 sprites. 


1 REM 16 SPRITES 

5 PRINT CHRS (147) 

100 FOR I = 0 TO 7: POKE 2040+I, 15: NEXT 

110 V = 53248 

120 POKE V+21, 255 : POKE V+ 33, 0 

130 FOR I = 0 TO 7: POKE V+2*I, (I+1) *30: 
POKE V+2*I+1,70;NEXT 


140 FOR I = 0 TO 7: POKE V+39+I,I+1: NEXT 

200 FOR I = 828 TO 907: READ X: POKE I, X : NEXT 
300 FOR I = 960 TO 960 + 62 :READ X:POKE I, X: NEXT 
350 SYS 828 


430 D=D + 1; FOR I = 0 TO 7: POKE V+2*I, (I+1)* D: 
POKE V+2*I=1,1*5+60: NEXT 

440 IF D> 28 THEN D=1 

450 GOTO 430 

900 DATA 120, 169,100,141,18,208,173,17 

910 DATA 208, 41,127,141,17,208,169,129 
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ee a 


920 
930 
940 
950 
960 
970 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
980 DATA 
990 DATA 
1000 DATA 
1001 DATA 
1002 DATA 


141, 26,208,169, 91,160,3,141 
20,3,140, 21,3, 88, 96,173 
25,208,141,25,208,41,1,208 
3,76,49,234,173,18,208,201 
200,176,22,160,200,169,170,140 
18,208,162,14,157,1,208,202 
202,16,249,104,168,104,170,104 
64,160,100,169, 90, 76,115, 3 
255,255,255,182,210, 73,164,155 
109,255,255,255,164,155,109,182 
211,109,182,218,109,182,219,77 


1003DATA 182,219,105,182,219,109,255,255 
1004DATA 255,0,0,0,0,0,0,0 

1O005DATA 0,0,0,0 
1006DATA 0O,0,0, 
1007 DATA 


Examine line 430 closely. In addition to the sprite coordinates, you can 
change all of the other sprite parameters as well, such as the color or size. 
You can also change the sprite pointers so that other sprite patterns can be 
displayed, even multicolor. 


You can do more than display 16 sprites. If you change the display 
mode in the raster interrupt routine, you can display a split screen--The top 
half could display hi-res graphics while the lower half displays text. 
Superimposed effects can also be achieved in this manner. 


Now that we have described the programming and use of sprites in 
detail, we want to look at the other operating modes of the VIC chip. 
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2.4 Normal Character Display 


This mode is the most "normal" of all the display modes of the VIC: the 
text mode. It is automatically enabled when the machine is turned on. One 
thousand characters from the video RAM are displayed as a page of text on 
the screen. Each character has a code which is used as a pointer to the 
character generator. This pointer is used to display the bit pattern stored in 
the character generator at the current screen position. In this manner the 
computer can display 256 different characters on the screen. Two different 
characters sets are stored in the Commodore 128. You can select between 
upper/lower case and upper/graphics mode with SHIFT/Commodore. These 
are two of the character sets. You can also select between the 40 column and 
80 column screens, giving another character set which is a combination of 
the upper/lower case and upper/graphics case sets. 


There is a separate location in the color RAM for each character on the 
screen. This location determines the color of the character. When the 
character is displayed, the color of each set bit is fetched from the lower 
nibble of the color RAM. 16 colors can be defined here. If a bit is not set, 
the color is fetched from the background color register 0; the point is 
therefore transparent. 


2.4.1 Moving the video RAM 


A useful feature of the VIC chip is the ability to move the location of the 
video RAM and/or the character generator. In this manner you can have two 
or more text screens. For example, while you display one screen, you can 
build another behind the scenes. The same applies to the graphic mode. 
Color RAM cannot be moved, however. 


As already mentioned, the VIC chip can address only 16K. Normally 
the first 16K of bank 0 is addressed--the video RAM is found at address 
$0400-$07FF. Register 24 of the VIC chip supplies the address of the video 
RAM in 1K increments. Bits 4-7 of this register represent the address bits 
10-13 of the video RAM. The address $0400 looks like this in binary: 


0000 1000 0000 0000 = $0400 
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The left-most bit is address bit 15, the right-most is address bit 0. 
Address bits 10-13 read: 0010. This bit combination is also found in 
register 24, bits 4-7. To move the video RAM by 1K, the new address 
would be $0800. 


0001 0000 0000 0000 = $0800 


Address bits 10-13 now read 0100. To write this address to register 24, 
you must first mask out (=erase) bits 4-7 and then the bit combination can 
be defined with a logical OR operation. 


P=PEEK(53248+24) : REM OLD CONTENTS 
POKE 53248+24,(P AND 240) OR 64 


This OR operation is necessary to make sure you do not disturb the 
other bits in the register because they define the address of the character 
generator. 


The limit of movement is reached when you try to move the video RAM 
by more than 16K. Registers 24 has bits 10-13 of the address available, 
enough for movements within a 16K range. Since address bits 14 and 15 
cannot be defined in the VIC chip, these bits must be stored outside it. 
These two bits are found in register 0 of CIA2 (address $DD00), bits 0 and 
1. Note that these two bits are active low, meaning that their values are 
inverted. In order to address the lowest 16K (address bits 14 and 15 are 0), 
bits O and 1 of register 0 in CIA2 must be set. 


IMPORTANT! 
If you change bits 0 and 1 of CIA2, not only does the video RAM move by 
16K, the base of the character generator moves too. Remember this when 
doing graphics programing. 
The following values stand for given memory ranges: 

».4 Bits Range 

0 00 $C000-$FFFF 

1 01 $8000-$BFFF 

2 10 $4000-$7FFF 

3 11 $0000-$3FFF (power-up condition) 


POKE 56576, A: REM SELECT THE 16K PAGE 
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2.4.2 Moving the character generator 


The CIA2 bits define the 16K page for both the video RAM and the 
character generator. The character generator can also be moved, but in 2K 
increments instead of 1K increments. Bits 1-3 of register 24 in the VIC 
represent address bits 11-13 of the character generator. 


Normally this pointer points to the character ROM, which is responsible 
for the appearance of the characters on the screen. In the graphics mode, the 
character generator must be moved, however, in order to define the base of 
the graphic page (the video RAM becomes the color RAM). The character 
ROM is found physically outside the readable range of the VIC chip, 
because the address $D000 is not addressable when a lower page is 
selected. This character ROM has a special status thanks to the address 
manager, however: If the relative addresses $1000-$1FFF or $9000-$9FFF 
are addressed, the character ROM is automatically accessed 
($D000-$DFFF). If you disturb this by programing in the graphics mode, 
for example, you must use either page 1 or 3 or move the area for the 
character generator. 


If, for example, you want to program and use a couple of self-defined 
characters, first copy the original character set out of the character ROM into 
RAM. Then you can redefine individual characters or completely redefine 
the entire set. You need only tell the VIC where it can find the new character 
set. 


2.4.3 The color RAM 


The color RAM is probably the only thing which you cannot redefine 
on the VIC. This is not a hindrance for it is important to always know 
where the color RAM will be. The color RAM serves as the color palette for 
the text display; the VIC gets the color for each character from this RAM. 
When you work in the hi-res mode, the color RAM is unused. You can use 
this RAM for other purposes. In the multi-color mode, the color RAM 
comes back into play--it yields color values for the entire screen area. 


The color RAM begins at address $D800 and ends at address 
$D800+999. 
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We will clarify the theory behind video programming by using 
examples. 


Whenever you have the opportunity to define a color, whether it be in 
the color RAM for a character on your text screen or the color for a sprite, 
the following codes apply to the given colors: 


Key Color Number 
Ctrl-1 Black 0 
Ctrl-2 White 1 
Ctrl-3 Red 2 
Ctrl-4 Cyan 3 
Ctrl-5 Purple 4 
Ctrl-6 Green 5 
Ctrl-7 Blue 6 
Ctrl-8 Yellow 7 
=-1 Orange 8 
C=-2 Brown 9 
C=-3 Light red 10 
C=-4 Grey 1 11 
C=-5 Grey 2 12 
C=-6 Light green 13 
C=-7 Light blue 14 
=-8 Grey 3 15 


For example, to make the border and background black, the following 
instructions are necessary: 


POKE 53280,0 
POKE 53281,0 


To fill the screen (which is now black) with white A's we must fill the 
video-RAM, at address $0400 to address $0400+999, with the color code 
1. In addition, we must put 1 (for white) in all locations of the color RAM at 
address $D800 to $D800+999 : 


10 PRINT CHR$(147); : REM CLEAR THE SCREEN 


20 FOR I=0 TO 999 : REM 1000 CHARACTERS 
30 POKE 55296+I,1  : REM WHITE 
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40 POKE 1I+1024,1 : REM AN A 
50 NEXT I 
60 GET AS: IF AS="" THEN 60 


Line 60 prevents the screen from being scrolled. The program is 
stopped when a key is pressed. If this is too boring for you, try the 
following: 


30 POKE 55296+I,RND(0)*16 : REM COLOR 
40 POKE 1024+I,RND(0)*255 : REM CHARACTER 


You should try it out to see what happens. But since programming the 
text screen is as simple as it is boring, we will now turn to graphics 
programing: 


2.5.1 The hi-res mode 


Since we wish to program at the lowest programming level, machine 
language, we don't have commands for drawing lines or circles--not even a 
command to set a point. Those who want to program in the 64 mode should 
get rid of the idea of using BASIC 7.0 commands. If you program in 
machine language, you can naturally access the routines stored in the ROM. 
But it usually better if you you write such routines yourself, since you can 
adapt these routines to meet your individual needs. In addition, the 
operating system routines make time-consuming checks that we can 
dispense with entirely in machine language. 


Here is a program which plots a sine curve on the screen in the hi-res 
mode, without using a single command from BASIC 7.0; everything is 
done "by hand". This program can also be translated directly into machine 
language, in which only the sine calculation will present a problem. 


5 REM 128 MODE ONLY: GRAPHIC 1,1 
10 REM SINE-PLOT-PROGRAM FOR C-64 MODE AND 128 MODE 


20 V=53248: REM START ADDRESS OF VIC 
30 AD=8192: REM START ADDRESS OF HI-RES BIT 
MAP 


32 REM 128 MODE ONLY: GOTO 120 

40 POKE V+17,59: REM TURN ON GRAPHICS 

50 POKE V+24,24: REM DEFINITION OF CHAR-GENERATORS 
60 FOR I=1024 TO 2023: REM SET THE HIRES COLOR RAM 
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70 POKE I,16: REM COLOR 
80 NEXT I . 
90 FOR I=8192 TO 16383: REM CLEAR THE HIRES BIT MAT 
100 : POKE I,0 
110 NEXT I 
120 Y=100: REM POSITION X AXIS 
130 FOR X=0 TO 319: REM MARK THE X AXIS 
140 : GOSUB 1000:REM POINT SET 
150 NEXT X 
160 X=160: REM POSITION Y AXIS 
170 FOR Y=0 TO 199: REM MARK Y AXIS 
180 : GOSUB 1000 
190 NEXT Y 
200 X=0 
210 FOR I=-3.141592654 TO 3.141592654 
STEP 0.0196349541 
220 : Y= 100+99*SIN(I): REM FUNCTION 
230 : GOSUB 1000 
240 : X=X+1: REM NEXT FUNCTION 
250 NEXT I 
260 GET AS:IF A$="" THEN 260 
265 REM C-128 MODE ONLY : GRAPHIC 0 
1000 OY= 320* INT(Y/8) + (Y AND 7): REM Y-OFFSET 
1010 OX= 8* INT (X/8) : REM X-OFFSET 
1020 MA = 2%(7-(X AND 7)) 
1020 AV = AD + OX + OY 
1040 POKE AV, PEEK(AV) OR MA: REM SET POINT ON OR 
1050 RETURN 


When you start the program, you will not be very impressed by the 
execution speed. This is because of the time-consuming calculations and the 
REM commands. A very time-intensive calculation is the (2“a) calculation 
which can be replaced by a table in both BASIC and machine language. 
Naturally this all can be done in BASIC 7.0 more effectively, but you 
would never know a point is set internally. The program contains the 
BASIC 7.0 commands in REM statements so you can see the differences. 


We'll take a closer look at the program to find out how we produced the 
graphics on the screen. 


In order to make the calculations in the program reference the VIC chip, 


we have first defined the starting address of the chip. This: also makes it 
easier to see which register is being accessed. First we change register 17 
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by writing the value 59 into it. Bit 5 is set to tell the VIC that we are in the 
graphics mode. The start addresses of the video RAM and character 
generator are placed in register 24. We write a 24 in this register. 


24 = $18 = %0001 1000 


Bits 4-7 of the register determine the address bits 10-13 of the video 
RAM--we get the start address $0400, the normal value of the screen. 
Furthermore, bits 1-3 determine address bits 11-13 of the character base: 


%0010 0000 0000 0000 = $2000 = 8192 


We have defined the address of the video RAM as well as the address 
of the bit map with one POKE command. Based on our own experience, 
most of the errors occur in the conversion of these two addresses. For this 
reason you should do everything in detail, as in our example, by writing the 
two addresses down and then putting together the bits that are required. 


When you start the program, you return to BASIC again by pressing a 
key. But you can see that the graphics mode is not turned off, and you can 
see that the text is quite colorful. This is because the video RAM is filled 
with the values that refer to these colors. You should save the contents of 
registers 17 and 24 before you overwrite them so that you can reconstruct 
them later. Insert the following lines to return to the text mode when you 
press a key: 


35 Al=PEEK(V+17): A2=PEEK (V+24) 
270 POKE V+17, Al: POKE V+24, A2: END 


This program makes use of the hi-res mode in which we have a 
resolution of 320x200 points. This gives exactly 64,000 points available to 
us. Since 8 points=8 bits that can be combined into one byte, we need a 
memory area of exactly 8000 bytes in order to display the graphics. Three 
hundred and twenty (320) points can be displayed in one line, or 40 bytes 
(320/8); we recognize this from the text mode. Further, we have 25 lines of 
8 points. Notice the parallel to the text mode. 


One character in the text mode consists of 8x8=64 points which can be 
independently set or cleared. The color for the set points comes from the 
color RAM while the color for the unset points is taken from the 
background color register 0. The graphic mode is similar. Here too 8x8 
points are taken together as a unit. Two colors can be displayed in this little 
box of 64 points. If a memory location were provided for the color of each 
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point, we would need 64K of color memory! By combining the points into — 
8x8 groups, we only need 1000 bytes for the color definition. We will take 
a closer look at such an 8x8 unit. 


Such a unit is also called a character matrix. All of our letters and 
special characters that we can see on the screen in the text mode are defined 
in this matrix. In the hi-res mode we can define all of the matrices ourselves 
and no longer have just a "pointer table" to pre-defined matrices (character 
generator). This may sound complicated, but it really isn't. 


You see that it must be possible to mix text and graphics or to "draw" 
text in the graphic area without too much programming effort. Writing 
directly to the graphic storage naturally doesn't work. But exactly how is 
the graphic brought to the screen? What memory location in our graphic 
storage defines which 8 points in our graphic? The following figure should 
clarify these questions: 


B1L92 3 Ke. 5 cae ad Ha 8200: 
BLO3 cs a Be ewe 8201: 
BSLO4! fo Bo ee 8202: 
B195 8 si ee Sel a ee 8203: 
BLIGE oo gn ee ae Ge 8204: 
BLOTS ee Wee ol. > eR 8205: 
SU9B seo ee oe Re Se 8206: 
81998 2 we we we we Oe 8207: 
ol AC: 8257: 
etc. 


This figure shows the shift between columns and lines as far as the 
addressing goes. Our graphic storage starts at address 8192 and defines the 
first 8 points of our graphic with the first byte. If we want to address the 
ninth point in our first line, we must use the address 8200 which is where 
this point resides. The scheme of representation is similar to the text mode; 
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it is displayed character by character and line by line. But how do we 
address a given point? We must first calculate the address in which it is 
located. To establish such an algorithm we first simplify the conditions. 
First we will just try addressing a point in the first line: 
AD = 8192 + INT(X/8)*8 
For the sake of simplicity, we will call the term INT(X/8)*8, OX (or 
offset of the X-position). This is all we need to do for the X-coordinate. We 


now have the address of the point, but we don't know what bit to access. 
We don't want to disturb any of the others: 


BIT = X - INT(X/8)*8 


We need to find the remainder of X/8. This is done by masking out the 
lowest three bits with a logical AND operation. 


BIT =X AND7 

Try it once; it works and is much faster than the division, especially in 
machine language. Now, however, we must consider that the left-most bit 
is not labeled 0, but 7. We must reverse this relationship: 

BIT =7 - (X AND 7) 

Now the formula is correct. To set such a point in assembly language or 
BASIC we have to set the appropriate memory location with a logical OR 
operation. To do this, we have to calculate the power of two: 

2(7-(X AND 7)) 

Now we can set any point in the first line: 

POKE 8192+OX,PEEK(8192+OX) OR 24(7-(X AND 7)) 

To address the first eight lines, we need only add the Y-coordinate. If 
we want to access the ninth line, we have to skip 320 bytes. The following 
addition takes the Y-position into account: 


OY = INT(Y/8)*320 + (Y AND 7) 
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In order to address a point, add the offset of the X and Y positions to 
the base address of the graphics memory. The following formula results for 
the address calculation: 


AD = OX + OY + 8192 


Our terms for calculating the X and Y offsets are integrated into the 
formula. We have now derived all of the calculations necessary to set a 
point. The following sequence of commands in BASIC give us the correct 
results: 


OY=320*INT(Y/8) + (Y AND 7) 
OX=8* INT (X/8) 

BI=2*(X AND 7) 

AD=8192 + OX + OY 

POKE AV, PEEK(AV) OR BI 


If we want to erase a point, the address calculation does not change, but 
we must modify the POKE command. We must also mask out the 
calculated bit: 


POKE AV, PEEK(AV) AND NOT BI 


Now we know how to set and clear points. But we still don't know 
how the colors to be displayed for set and cleared bits can be set. In our 
example the bit map is found at addresses 8192-16192. You recall than we 
have moved the normal RAM to color RAM. This means that the 
information to determine the color of the points on the hi-res screen will 
come from this memory, memory which otherwise contains the contents of 
the screen. This memory area is located at address 1024 thru 2023. 


Since we can define two colors with one bit, we must also place these 
two colors in video RAM. Recall the construction of the graphic screen. We 
always had "matrices" of 8 bytes--eight sequential bytes in our bit map. 
Such a matrix has the same size as a character on the screen. The colors for 
our first matrix, at address 8129-8199, is defined in the first byte of the 
video RAM--address 1024. These two colors apply to all 64 points in this 
matrix. Correspondingly, the colors for the second matrix, from address 
8200 to 8207, are stored in address 1025. The question remains, how are 
these colors defined? 


Let's take another look at our example program that filled the range 
from 1024 to 2023 with the value 16. What does 16 look like in binary? 
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16 = $10 = %00010000 


If we separate the upper and lower nibbles (unit of four bits) from each 
other, we get two values between 0 and 15--sufficient to define the available 
colors. In this example we get the values 1 and 0. If we look at the color 
table, we see that we have defined the colors white and black. In the hi-res 
mode you must define the colors so that sufficient contrast is retained. Often 
two adjacent points must be set in order to be able to see the color at all. 
This varies from monitor to monitor, however. The contrast between white 
and black is the best possible (perhaps black on white would be even 
better), while red and blue result in utter chaos. The color defined in the 
upper nibble of the color RAM is displayed for a set bit. In our example this 
means that the background is black (0) and the graphic is shown in white 
(1). The following rule applies for setting the color RAM: 


POKE <color RAM>,<foreground>*16 + <background> 


Naturally, you can define more than two colors across the entire screen: 
there are 256 possible combinations within a matrix and black and white is 
only one of them. Programming in hi-res mode is best learned by trial and 
error. 


2.5.2 The multi-color mode 


In addition to the hi-res mode, there is another option for displaying 
graphics on the screen: the multi-color mode. We are familiar with the term 
multi-color from sprites. In multi-color we have four colors per matrix, 
though as with sprites, the resolution suffers. In multi-color mode it is 
"only" 160x200--exactly half. A byte now defines four points instead of 
eight. To turn on the multi-color mode we must set bit 5 of register 17 (just 
as for the hi-res mode). In addition, the fourth bit in register 22 must be set. 
This is done by the instruction: 


POKE 53248+22,PEEK(53248+22) OR 16 
The addresses for the bit map and color RAM are programmed in the 
same manner as for the hi-res mode. The following contents should be 
found in address 8192 (the first byte of the bit map): 


PEEK(8192)= %00011011 = $1B = 27 


48 


Abacus Software C-128 Internals: 





This byte defines the first four points of the first line. Since two bits are 
taken together, we get the bit pairs 00, 01, 10, and 11--all four 
combinations are possible. 


Bits Color information comes from 

00 Background color register 0 . 
01 Upper four bits of the video RAM 
10 Lower four bits of video RAM 

11 Color RAM 


Here only the bit combination 00 is the same for the entire screen. Bit 
combinations 01 and 10 work the same way as described for the hi-res 
mode. The color RAM begins at address $D800 and makes one color 
available. Programming in multi-color mode is very attractive since it offers 
a wider selection of colors. Naturally our address calculation must change 
since only four points are defined by each byte. The formula for the X 
offset changes: 


OX=8*INT(X/4) 
MA=2(6-2*(X AND 3)) 
POKE AV, PEEK(AV) OR MA*<bit pattern> 


You can see that the formula for the bit determination has also changed. 
You must remember that a bit pair must be logically ORed with the existing 
contents and the power of two may only go in steps of two. The <bit 
pattern> is shifted left by the multiplication. Since the multi-color mode is 
most often used in games, you should be familiar with the programming 
tricks used in this mode. 


2.5.3 The multi-color mode (text) 


(register 22 bit 4=1) 

Another relatively unused multi-color mode is the multi-color text 
mode. In this mode characters on the screen can have more than one color. 
For example, you can define a zero made up of a white circle with a blue 
slash through it. If the multi-color mode is enabled, the VIC checks to see if 
bit 3 of the color register is set. This means that the color of the character is 
greater than 7 (8-15). If this is the case, the character is displayed in 
multi-color mode. The character no longer has an 8x8 matrix, but just a 4x8 
matrix with the following bit combinations: 
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Bits Color register Defined at address 

00 Background register 0 $D021 (53281) 

01 Background register 1 $D022 (53282) 

10 Background register 2 $D023 (53283) 

11 Color register Color RAM $D800-$D800+ 1000 


If the bit combination is 11, the color is taken from the lower three bits 
of the color register. If bit three is not set in the color register (color 0-7), a 
normal single-color 8x8 matrix is displayed. This mode is only useful if 
you define your own character set. This mode is used in some games 
because it is easier to program than the hi-res mode. Switch to this mode 
once: Since these characters are not intended for multi-color mode, you get a 
colored spectacle: 


POKE 53248+22,PEEK(53248+22) OR 16 
The following command is used to turn this mode off again: 
POKE 53248+22,PEEK(53248+22) AND 239 


2.5.4 Extended-color mode 


(register 17 bit 6=1) 

Even all this wasn't enough for the designers of the VIC. They created 
yet another mode: the extended-color mode. This mode is very similar to the 
normal text mode. A character can consist of only two colors, but the 
background color is not necessarily the same. One can choose between three 
background colors (for the 0-bits), while the 1-bits get their color from the 
color register. The background color is determined by the two 
most-significant bits in the video RAM: 


Bits Background color register # 
00 0 
01 1 
10 2 
11 3 


Since two bits have been taken away from the video RAM, only six bits 
remain to define the character to be displayed. This has the result that only 
64 characters can be represented--these are the lowest 64 characters. There 
are two sides to everything... 
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2.6 Smooth Scrolling 


You may have seen this word in some computer literature and 
wondered what it means. 


Smooth scrolling is beautiful as it sounds: by means of this capability 
you can move the screen horizontal or vertically by one pixel. Scrolling is 
the shifting of the screen. This can be used in games to create moving 
backgrounds so that one gets smooth scrolling. This movement can take 
place in any one of four directions (up, down, left, or right). Moving in one 
direction causes one row of pixels to be covered up while a new row 
appears at the other end. The screen can be placed in eight different 
positions with this scrolling, sufficient to allow a character to appear on the 
screen slowly. To make use of smooth scrolling, the screen must be made 
smaller. The VIC has two bits available to do this, in which one can select 
the display mode of 38/40 characters per line and 24/25 lines. The border 
then increases correspondingly. 


If we want to move the screen vertically, we must give up a line, while 
if we want to move it horizontally, we lose two characters per line. To 
switch to the 38-column mode, bit 3 of register 22 must be cleared: 

POKE 53248+22,PEEK(53248+22) AND 247 


After you have entered this line, the screen shrinks in size. To switch 
back to the "normal" mode, we must set bit 3 again: 


POKE 53248+22,PEEK(53248+22) OR 8 


The same thing applies to the 24-line mode. Here bit 3 of register 17 
must be cleared if we want 24 lines: 


POKE 53248+17,PEEK(53248+17) AND 247 
POKE 53248+17,PEEK(53248+17) OR 8 


In register 22, bits 0-2 indicate what offset the left edge of the screen 
has. By varying these three bits one can achieve soft scrolling in the 
horizontal direction. If you want to scroll vertically, the offset in register 17 
must be changed accordingly. 


But we don't want to keep you in suspense any longer. Here is a demo 
program to clarify what effects can be achieved with smooth scrolling: 


51 


Abacus Software C-128 Internals 





10 PRINT CHR$(147) : REM CLR SCREEN 
20 POKE 52348+17,PEEK(53248+17) AND 247 
30 FOR I=1 TO 24 
40 : PRINT " HELLO !!": REM 12 SPACES 
50 NEXT I: PRINT " HELLO !!"; 
: REM NO SCROLLING AND 12 SPACES 
60 POKE 53248+17,PEEK(53248+17) AND 248 OR 7 
: REM SET FIRST POSITION 
70 FOR I=6 TO 0 STEP-1 
80 POKE 53248+17,PEEK(53248+17) AND 248 OR I 
90 FOR I1=1 TO 60: NEXT I1: REM DELAY LOOP 
100 NEXT: REM END OF LOOP 
110 GOTO 60: REM AGAIN 


Naturally this smooth scrolling works in the graphic mode too. It is in 
the graphic mode that the most refined effects can be created. For example, 
you can have a space ship moving soundlessly through a never-ending 
universe. After all eight rows of points have been scrolled, you must fill a 
graphic column or row with new values. 


You can see that the VIC-II chip offers a great deal. Not everything is 


covered by the BASIC 7.0 commands. This chapter covers all of the 
features of the VIC-II so that you won't miss out on anything. 
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Chapter 3: Input and Output Control 


3.1 General Information about the CIA 6526 


CIA stands for Central Intelligence Agency, though that really doesn't 
concern us here. For us, CIA stands for Complex Interface Adapter, and 
that should be more interesting. The Commodore 128 uses the CIA 6526. A 
brief run-down of its main features: 


* 16 individually programmable input/output lines 

* 8 or 16-bit handshake for input and output 

* 2 independent, cascadable 16-bit interval timers 

* 24-hour (AM/PM) clock with programmable alarm time 
* 8-bit shift register for the serial I/O 


3.1.1 Pin Configuration 


1 GND 
2-9 V/O PA (port A); 8-bit directional 
10-17 I/O PB (port B); 8-bit directional 
Bits 6&7 can be programmed to signal the time-out of 
both timers 
18 -PC (port control); output only; 
signals the availability of data on port B or both ports 
19 TOD (Time Of Day); input only, 50/60 Hz; 
triggers the real-time clock 
20 +5V; operating voltage 
21 -IRQ (interrupt request); output only; 
O if a set bit in the ICR matches the occurrence of the 
given event 
22 R/W (read/write); input only; 
0=input from data bus 
1=output to data bus 
23 -CS (chip select); input only; 
O=data bus valid, 1=data bus high-impedance 
(tri-state) 
24 -FLAG; input only; meaning same as -PC 
25 02 (system clock 2); input only 
all data bus actions occur only on 02=1 
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26-33 
34 
35-38 


39 
40 





DB7-DBO (data bus); bidirectional; 
interface to processor 

-RES (reset); input only; 

O=reset CIA 

RS3-RSO (register select); input only; 
serves to select a 16-bit register; 
valid only if -CS=0 

SP (serial port); bidirectional; 
input/output of the shift register 

CNT (count); bidirectional; 
input/output of the shift register clock or trigger input 
for the interval counter. 


3.2 Register Description of the CIA 


REG 0 


REG 1 


REG 2 


REG 3 


PRA (port register A) 

Access: read/write 

Bits 0-7: This register corresponds to the condition of pins 
PAO-PA7. 


PRB (port register B) 

Access: read/write 

Bits 0-7: This register corresponds to the condition of 
PBO-PB7. 


DDRA (data direction register A) 

Access: read/write 

Bits 0-7: These bits determine the direction of data on the 
corresponding data bits of port A. 

O=input, 1=output 


DDRB (data direction register B) 

Access: read/write 

Bits 0-7: These bits determine the direction of data on the 
corresponding data bits of port B. 

O=input, 1=output 
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REG 4 


REG 5 


REG 6 


REG 7 


REG 8 


REG 9 


REG 10 


TA LO (Timer A, low byte) 

Access: read 

Bits 0-7: This register returns the current condition of the 
low-order byte of time A. 

Access: write 

Bits 0-7: This register is loaded with the low-order byte of 
the value from which timer is supposed to count down to 
zero. 


TA HI (Timer A, high byte) 

Access: Read 

Bits 0-7: This register returns the current condition of the 
high-order byte of time A. 

Access: Write 

Bits 0-7: This register is loaded with the high-order byte of 
the value which timer is supposed to count down to zero. 


TB LO (Timer B, low byte) 
Same as register 4. 


TB HI (Timer B, high byte) 
Same as register 5. 


TOD 10ths (Clock tenths of a second) 
Access: Read 

Bits 0-3: Tenths of a second in BCD format 
Bits 4-7: Always 0 

Access: Write and CRB bit 7=0 

Bits 0-3: Tenths of a second in BCD format 
Bits 4-7: Must be 0! 


TOD SEC (Clock seconds) 

Access: Read 

Bits 0-3: Seconds (one's digit) in BCD format 
Bits 4-6: Tens of seconds in BCD 

Bit 7: always zero 


TOD MIN (Clock minutes) 

Access: Read 

Bits 0-3: Minutes (one's digit) in BCD format 
Bits 4-6: Tens of minutes in BCD 

Bit 7: always zero 

Write access as per REG 8. 
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REG 11 


REG 12 


REG 13 


REG 14 


TOD HR (Clock hours) 

Access: Read 

Bits 0-3: Hours (one's digit) in BCD format 
Bits 4: Tens of hours 

Bits 5-6: Always zero 

Bit 7: 0=AM, 1=PM 

Write access as per REG 8 


SDR (Serial data register) 

Access: Read/write 

Bits 0-7: The data are shifted out to or shifted in from pin SP 
from/to this register. 


ICR (interrupt control register) 

Access: Read (INT DATA) 

Bit 0: 1=Timer A timeout 

Bit 1: 1=Timer B timeout 

Bit 2: 1=Alarm time equals clock time 

Bit 3: 1=SDR full/empty (depending on operating mode) 

Bit 4: 1=Signal on FLAG pin 

Bits 5-6: Always zero 

Bit 7: At least one bit in INT MASK matches a bit in INT 

DATA 

Note: Reading this register erases all of the bits! 

Access: Write INT MASK) 

Meaning of bits as above, except bit7: 

Bit 7: 1=Every 1-bit sets the corresponding mask bit. The 
other remain unchanged. 
0=Every 1-bit clears the corresponding mask bit. The 
other remain unchanged. 


CRA (Control Register A) 

Access: Read/write 

BitO: 1=Timer A start,O=stop. 

Bit 1: 1=Signal timer A timeout on pin B6 

Bit 2: 1=Every timeout on timer A inverts PB6 
0=Every timeout on PB6 creates a high signal on PB6 
for the length of the system clock 

Bit 3: 1=Timer A counts down to zero and stops 
0=Timer A counts down to zero and repeats 
continuously 
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Bit 4: 1=Absolute loading of start value in timer A. This bit 
functions as a strobe. It must be set for each 
absolute load. 

Bit5: This bit determines the source of the timer trigger. 
1=timer counts rising CNT edges, O=timer counts 
system clock pulses. 

Bit6: 1=SP is output, 0=SP is input 

Bit7: 1=Real-time clock trigger is 50Hz 
0=Real-time clock trigger is 60Hz 


REG 15 CRB (Control register B) 
Access: Read/write 
Bits 0-4: These bits have the same meaning as in REG 14, 
except they apply to timer B and PB7. 
Bits 5-6: These determine the source of the trigger for timer 
B. 00=timer counts system clocks, 01=timer counts rising 
CNT edges, 10=timer counts timeouts of timer A, 11=timer 
counts timeouts of timer A when CNT=1. 


3.3 I/O Ports 


Ports A and B each consist of an 8-bit data register (PRA or PRB) and 
an 8-bit data direction register (DDRA or DDRB). When a bit is set in the 
DDR, the corresponding bit in the PR functions as an output. If a bit in the 
DDR=0, the corresponding bit in the PR is defined as an input. 


During a read access, the PR returns the current condition of the 
corresponding pins (PAO-7, PBO-7); it does this for both input and output 
pins. PB6 and PB7 can assume output functions for the two timers. 


The data transfer between the CIA and the "outside" world connected to 
PA/PB can be accomplished with handshaking. PC and FLAG are used for 
this. PC goes low for one clock period when a read or write access occurs 
on PRB. This signal can indicate the availability of data on PRB or indicate 
receipt of data by PRB. FLAG is a trailing-edge triggered input which can 
be connected to the PC of another CIA, for example. A trailing edge on 
FLAG sets the FLAG interrupt bit. 


The serial data port SDR is a synchronous 8-bit shift register. CRA bit 


6 determines the input or output mode. In the input mode the data are 
accepted into the shift register on a rising edge on CNT. After 8 CNT pulses 
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the contents of the shift register are placed in SDR and the SP bit in ICR is 
set. In the output mode timer A functions as a baud rate generator. The data 
are shifted out of SDR to SP at half the timeout frequency of timer A. The 
theoretical limit to the baud rate is 1/4 of the system clock. 


The transfer begins after data are written to the SDR, assuming timer A 
is running and is in the continuous mode (CRA bit 0=1 and bit 3=0). The 
clock derived from timer A appears on CNT. The data from SDR are loaded 
into the shift register and are shifted out on every trailing edge on CNT. 
After 8 CNT pulses, the SP signal is created. If the SDR is loaded with new 
data before this event, these are automatically loaded into the shift register 
and shifted out. No interrupt is generated in this case. 


| The data in SDR are shifted out high-order bit first. Data going into the 
register must following the same format. 


3.4 The Timers 


Both timers have a 16-bit timer (read-only) and a 16-bit temporary 
storage (write-only). If a timer is read, its current contents are returned. 
When writing, the data are first written to the temporary storage. 


Both timers can be used independently of each other or in connection. 
The various operating modes allow long time delays, variable pulse lengths, 
and pulse chains. By using the CNT input, the timer can measure external 
pulses or frequencies. 


Each timer has a control register (CRA and CRB) assigned to it, which 
allows the following functions: 


o 


Start/Stop (Bit 0) 
This bit allows the timer to be started or stopped at any time. 


PB ON/OFF (Bit 1) 
This bit directs the timeout to PB (PB6 for timer A, PB7 for timer B). 
This function has precedence over the data direction set in DDRB. 


Toggle/Pulse (Bit 2) 
This bit determines the method in which the timeout signals will appear 
on PB. Either the condition of PB is inverted at every timeout, or a 
positive pulse is created for the duration of the clock. 
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One-shot/Continuous (Bit 3) 
In the one-shot mode the timer counts from the temporary storage value 
down to zero, sets the IRC bit, reloads the timer with the temporary 
storage value and stops. In the continuous mode, this procedure does 
not stop. 


Force-load (Bit 4) 
This bit allows the timer to be loaded at any time, independent of 
whether it is running or not. 


Input mode (Bit 5 CRA, Bits 5-6 CRB) 
These bits select the clock which determines the rate at which the timers 
will count down. Timer A can be clocked either by the system clock or 
by a clock supplied on CNT. Timer B can be further clocked by the 
timeout pulses from timer A, either absolutely or dependent on CNT=1. 


3.5 The Real-time Clock 


There is a 24-hour real-time clock (TOD) in the CIA with a resolution of 
1/10 second. In consists of four registers: Hours, minutes, seconds, and 
1/10ths of second. In the hour's register, the highest bit (bit 7) indicates 
whether it is AM or PM. All registers are given in BCD format so that the 
clock can be used without a lot of processor effort, even in machine 
language. 


The clock is a 50/60 Hz signal at the pin TOD, which can be 
programmed in CRA bit 7. In addition, there is an alarm register that can be 
used to generate an interrupt at any desired time. The alarm register 
occupies the same address as the TOD register, so the access is controlled 
by CRB bit 7. 


Note that the alarm register is write only! Any read access returns the 
TOD register regardless of the state of CRB bit 7. 


In order to be able to properly set and read the alarm time, the following 
order must be preserved: 


If the hours register is written, the clock automatically stops--it starts to 


run when the tenth of second register is loaded. The starting of the clock can 
be controlled exactly in this manner. 
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Since a carry can occur in a register already read when reading the 
clock, the registers are stored in temporary storage. This temporary storage 
is freed again when the tenths of a second are read. 


3.5.1 Real-time in BASIC 


Most of you probably know about the "clock" available from BASIC, 
TI$ and TI. Unfortunately the long-time accuracy of this clock leaves much 
to be desired; it is off about 1/2 hour per day. 


If you need a more exact time indication, you can use the real-time clock 
built into the CIA. Thie CIA clock uses the line frequency, which has 
excellent long-term accuracy. 


Here are two BASIC programs, one for setting the clock time, and one 
for reading it. Since it doesn't make a whole lot of sense to read the tenths, 
the register is always set to zero. 


10 C=56328: REM BASE ADDRESS OF THE CLOCK IN CIA1 

20 REM C=56584 FOR THE CLOCK IN CIA2 : 

30 POKE C+7,PEEK(C+7) AND 127: REM SET CLOCK TIME 

40 POKE C+6,PEEK(C+6) AND 128: REM LINE FREQ=60HZ 

50 INPUT "PLEASE ENTER THE TIME IN THE FORMAT 
HHMMSS: ";AS 

60 H=VAL (LEFTS (AS, 2) ) 

70 M=VAL (MIDS (A$,3,2) ) 

80 S=VAL (MIDS (AS,5)) 

90 IF H>23 THEN 40 : REM ERROR 

100 IF H>11 THEN H=H+68 : REM SET PM FLAG IF 
NECESSARY 

110 POKE C+3,16* INT (H/10) +H-INT (H/10) *10 

120 IF M>59 THEN 40 : REM ERROR 

130 POKE C+2,16* INT (M/10) +M-INT (M/10) *10 

140 IF S>59 THEN 40 : REM ERROR 

150 POKE C+1,16*INT(S/59) +S-INT (S/59) *10 

160 POKE C,0 : REM TENTHS -- START CLOCK 


The values are converted to BCD format in lines 110,130, and 150. 
You can use the following program to read the clock: 
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10 C=56328 : REM BASE ADDRESS OF THE CLOCK IN CIA1 
20 PRINT CHR$(147) : REM C=56584 FOR CLOCK IN CIA2 
30 H=PEEK (C+3) :M=PEEK (C+2) :S=PEEK(C+1) : T=PEEK (C) 
40 FL=1 

50 IF H>32 THEN H=H AND 127: FL=0: REM FLAG FOR PM 
60 H=INT (H/16) *10+H-INT (H/16) *16:ON FL GOTO 80 

70 IF H=12 THEN 90: ELSE H=H+12 

80 IF H=12 THEN H=0 

90 M=INT (M/16) *10+M-INT (M/16) *16 

100 S=INT(S/16) *10+S-INT (S/16) *16 

110 TS=MID$ (STRS$(T) ,2) 

120 HS=RIGHTS ("0"+MIDS (STRS (H) ,2) ,2) 

130 MS=RIGHTS ("0"+MIDS$ (STRS (M) ,2) ,2) 

140 SS=RIGHTS ("O0"+MIDS (STRS(S) ,2) ,2) 

150 PRINT "<Home>"; 

160 PRINT HS;":"sMS;":";SS;":";7S 

170 GOTO 30 : REM LOOP 


If you press the STOP/RESTORE key combination, the clock must be 
reset because the operating system sets all of the registers back to the 
starting values. Unfortunately, the bit responsible for the clock (50/60Hz) is 
also affected by this. 


3.6 The CIAs in the Commodore 128 


If you want to make use of the CIAs in the Commodore 128, you must 
remember that the CIAs have predetermined tasks to perform. Its first 
priority is to handle the interrupts, which the operating system requires for a 
number of routines. If possible, refrain from changing the ICR register. 


CIA 1: Base address $DC00 (56320) 


REG 0 (PRA) 
Bits 0-7: In normal operation the row selection of the 
keyboard matrix is found here. Some bits are also connected 
to controller port 1 on the outside of the computer. This is 
used to connect joysticks or paddles. 
Bits 0-4: Joystick 0, order: up, down, (left right, and fire 
button). 
Bits 6-7: Select paddle set A/B. Only one of the two bits may 
be 1. 
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REG 1 


REG 13 


_ (PRB) 


Bits 0-7: In normal operation the column selection of the 
keyboard matrix is found here, if a key was pressed. 
Bits 0-4: The same function as REG 0, but for control port 2 


Bit 4: Input data on cassette port. 


Timer A and CRA are required for the disk operation, timer B & CRB for 
the cassette operation. 


CIA 2: Base address $DD00 (56576) 


REG 0 


REG 1 


REG 13 


(PRA) ; 
Bits 0-1: VA 14-15 (highest-order address bits of the video 


RAM), . 
Bit 2: TXD (only in connection with an RS-232 cartridge, 
else free), 

Bit 3: ATN (serial bus output) 

Bit 4: CLOCK (serial bus output) 

Bit 5: DATA (serial bus output) 

Bit 6: CLOCK (serial bus input) 


‘Bit 7: DATA (serial bus input) 


(PRB) 

Bits 0-7: User port/RS-232. These bits have following 
meaning when an RS-232 cartridge is inserted: 

Bit 0: RXD (Receive Data) 

Bit 1: RTS (Request To Send) 

Bit 2: DTR (Data Terminal Ready) 

Bit 3: RI (Ring Indicator) 

Bit 4: DCD (Data Carrier Detect) 

Bit 6: CTS (Clear To Send) 

Bit 7: DSR (Data Set Ready) 


(ICR) 
Bit 4: RXD (only for RS-232 operation, else free). 


Timer A & CRA are required for the RS-232 baud rate, timer B & CRB for 
the RS-232 bit checking. 
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3.7 The Joystick 


In addition to the BASIC 7.0 commands for reading the joystick you 
can use the following BASIC program for interpreting the data: 


10 J1=56320 : REM JOYSTICK PORT 1 

20 J2=56321 : REM JOYSTICK PORT 2 

30 J=PEEK(J1) : REM READ FROM PORT 

40 IF (J AND 1)=0 THEN PRINT "UP "; 

50 IF (J AND 2)=0 THEN PRINT "DOWN "; 
60 IF (J AND 4)=0 THEN PRINT "LEFT "; 
70 IF (J AND 8)=0 THEN PRINT "RIGHT "; 
80 IF (J AND 16)=0 THEN PRINT "FIRE"; 
90 PRINT: GOTO 30 


The program reads from joystick port 1; if you want to read from port 
2, you need only replace J1with J2 in line 30. 


If you want control in two directions at once, such as up and right, this 
can also be read--in our example both directions are displayed on the screen. 
This increases the number of directions from 4 to 8. 


3.8 The Commodore 128 Serial Bus 


Peripheral devices are connected to the computer via the serial bus. 
. These can be such things as a printer or disk drives. You can think of a bus 
as working like this: Data is transported from the computer over the bus to 
specific stops (peripheral) and they return via the same path. The serial bus 
built into the Commodore 64 and 128 is a trimmed-down version of the bus 
included in the "larger" Commodore computers. The "big" bus has 24 lines 
while the "smaller" bus has only 6. This reduction may have been made for 
reasons of cost or space, but this bus has definitely contributed to the 
success of the Commodore computers (Many even think that it is 
Commodore's secret recipe). 
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Here is the pinout of the bus: 


1 SRQ; Service request. If a device has completed a task and now 
needs new data, or has some to send, or requires some kind of 
action, it can signal the controller by means of this line (like in the 
hospital where you can ring for a nurse). This initiates an identify 
cycle (by means of EOI or ATN), in order to determine which device 
is involved. This function is not used on the Commodore. 


2 GND; ground connection 


3 ATN; (In) ATtentioN. Whenever the controller wants to send a 
command, it activates this line. It must still be determined for which 
device the command is intended (all of the devices should "listen"). 
This is done when the device address is transmitted so that the other 
devices can get off the bus. 


4 CLK; (In/Out) CLocK. Since the data travel through the bus bit by bit 
in serial and not in parallel, the TALKER sends a CLK pulse along 
with each bit, which indicates the validity of the data line. 


5 DATA (In/Out) is the sole data line, over which a data byte is shifted 
with the lowest-order byte first. 


6 RESET; sends a reset to the connected devices. 


at B. (2 


All of the additional lines found on the larger bus, like EOI, NDAC, 
etc., are simulated or replaced by the two lines CLK and DATA. The time 
between the signal jumps of the two lines gives information about the 
signal. 
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You may think it a waste to leave one line unused on the already puny 
bus. But unfortunately, that's the way it is--at least in the "normal" mode. 


If there is a "normal" mode, you know there must be some other 
"abnormal" mode. This is true! As you know, the 1541 can hardly be 
described as a fast disk drive (quite the opposite). This is because each byte 
must be picked to pieces and then sent over the bus bit by bit. This 
deplorable state of affairs must be corrected--what good is a super machine 
like the Commodore 128 when it has such a handicap? Commodore 
developed the 1571 disk drive which loads up to eight times (!) faster than 
the 1541 (you can find out more in the book 1571 Internals by Abacus 
Software). Other things have been added in the CP/M mode as well. The 
speed advantage is possible only in the 128 mode, not in the 64 mode. The 
1541 can be operated as usual in the 128 mode. 


You may have already given some thought as to how this speed 
increase was accomplished; with the help of the unused SRQ signal. In the 
fast serial mode this line is used as second CLK line, as a fast, bidirectional 
CLOCK line. 


On power-up, the 1571 is always in the slow mode, which is why you 
can connect it to a C-64. The user can then specify the "fast" mode, which 
will remain in effect until it is turned off. The existing kernal routines in the 
C-128 have been changed in order to recognize the fast and slow modes. 
There is a special flag in the kernal to indicate if the current peripheral device 
is fast or slow. 


In order to declare the 1571 as a fast device, the user must send an HRF 
signal (Host Request Fast). This is done by sending eight CLOCK pulses 
over the SRQ line. The 6526 on the control board of the 1571 disk drive 
recognizes this signal and generates an interrupt. A flag is then set in the 
drive which indicates the fast mode. If the disk drive is the LISTENER and 
receives data, it sends a DRF signal (Device Request Fast). By means of 
this signal the computer recognizes that the disk drive can send and receive 
data in the fast mode. A 1541 can't send this signal, of course. The 
fast-mode flag in the computer can be reset by the following occurrences: 


UNLISTEN, UNTALK, bus error, and <RUN/STOP><RESTORE> 
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It's possible to connect a variety of devices to the serial bus, such as 
two disk drives and a printer. This makes it necessary to be able to 
distinguish between the different devices so that the data know where they 
have to "get off the bus." You can imagine a device address as a house 
number. The values 0-30 are possible as device addresses. 


Device address 
0-3 Internal device (keyboard, screen, user port, cassette 
port) 
4-7 Normally CBM printer 
8-11 Normally CBM disk drives 
12-30 Not used 


The device address contains additional information besides the actual 
device number: the action which is to be performed. The possible actions 
are the following: 


32 The device is addressed as a LISTENER, which means that it is to 
receive data. 
This action is called for by the BASIC command PRINT# or 
DSAVE, for instance. 


64 The device is supposed to be the TALKER; it is supposed to send 
data. 
This is used, for example, by the BASIC commands INPUT# or 
DLOAD. 


48 The operating mode LISTEN is ended (UNLISTEN). The lower 
half-byte (device) is always 15. 


80 The operating mode TALK is ended (UNTALK). The lower half-byte 
is always 15. 


For example, if you want to address a printer with the device address 4 
for printing, the whole device address is 32+4=36 ($24). 


68 


Abacus Software C-128 Internals 





3.8.3 The secondary address 


The secondary address does not select a device on the serial bus--it is 
used to select a mode in the device addressed. For example, a specific 
printing mode can be selected on most printers by specifying a secondary 
address. On the CBM printers, secondary address 0 selects the 
upper/graphics mode, secondary address 7 selects the upper/lowercase 
aves With a disk drive one can choose a data channel with the secondary 
address. 


The secondary address is also composed of the actual secondary 
address and the connection in which the secondary address occurs. 


96 PRINT, INPUT, or GET 
224 CLOSE 
240 OPEN 


This next table will also prove useful. It shows the bit patterns for the 
individual device and secondary addresses. 


Command Abbreviation Binary value 

Host Request Fast HRF $1111 1111 
Device Request Fast DRF %0000 0000 
Talk address (TA) / %010x xxxx 
Listen address (LA) %001x xxxx 
UNTALK (UNTLK) $0101 1111 
UNLISTEN (UNLSN) $0011 1111 
SA OPEN (SA(O)) $1111 yyyy 
SA CLOSE (SA(C)) $1110 yyyy 
SA normal (SA) $011lz zzzz 


The normal secondary address (zzzz) may have a value between 0 and 
31. The channel address (yyyy) may have a value between 0 and 15. As an 
example, the secondary addresses and their meaning for the 1541 disk 
drives: 


00 - PRG type (read data channel) 

01 - PRG type (write data channel) 
02-14 - Channels for all file types 

15 - Command channel 
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3.8.4 The system variable ST 


When peripheral devices are connected, errors can naturally occur. The 
system variable ST gives information about whether the last action on the 
serial bus was successful or not. If it was not successful, the error can be 
analyzed by means of the error code passed in the status variable ST. ST 
can have the following values: 


1 Can occur after OPEN or PRINT. After transmission of a byte, no 
acknowledgement was received via NDAC within 64milliseconds 
(ms), and it will probably not come. 


2 Can occur during INPUT or GET. If a device is addresses as a 
‘ TALKER and does not send a byte within 64ms, ST contains this 
value. 


64 The data byte last transmitted was sent in connection with an EOI 
(End Of Information), which means the end of the file (EOF) for the 
disk drive. 


-128 An addressing attempt produced no reaction on the drive. In this case 
a BASIC program will display the error message DEVICE NOT 
PRESENT; in machine language you can react in whatever manner is 
appropriate. 


A combination of these values can also occur. Here it is advisable not to 
read the absolute value in a BASIC program, but just the appropriate bit: 


1000 IF (ST AND 64) THEN PRINT "<EOF>" 


To read the status word ST in machine language, it is necessary to get it 
from the zero page. Fortunately, it is at the same address in both the 64 and 
128 modes: $90 (144 decimal). Reading the value in machine language 
would look like this: 


LDA $90 ;Get status variable 


AND #$40 ;bit 6 set? 
BNE EOF ;EOF reached 
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Chapter 4: The Sound Chip SID 


4.1 The Sound Controller 
4.1.1 General information about the SID 


Music is an interesting computer applications area. You are fortunate 
that such a powerful synthesizer (the SID chip) is contained inside the 
C-128. It is the same component contained in the Commodore 64. Almost 
every game uses some of the SID's soundmaking capabilities, but none 
really push the chip to its limits. Often the best-known melodies can be 
heard coming from the computer in all possible and impossible tone colors. 
The computer can also talk, thanks to the SID, without additional hardware. 
All it needs is the right program. 


SID stands for Sound Interface Device. While many synthesizers have 
only one voice (monophonic), the SID has three completely independent, 
freely programmable voices (polyphonic). Competing computers have also 
adopted this element and installed polyphonic synthesizers. 


Here are the important features of the SID 6581: 


* 3 independent, freely programmable voices 

* 4 mixable wave types for each voice 

* 3 mixable filters (highpass, lowpass, bandpass) 

* Envelope generator (ADSR control) for each voice 
* 2 cascadable ring modulators 

* alternation option for external signal sources 

* Two 8-bit A/D converters 
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The Block Diagram of the SID 
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4.1.2 Pinout of the 28-pin device: 


1-2 CAP1A, CAP1B; connection for capacitor for programmable 
filter. Recommended capacitance: 2200pF. 
3-4 CAP2A, CAP2B; like 1-2 


5 -RES (reset); =0 brings the SID back to start-up state 

6 02 (system clock); all data bus actions occur only while 02=1 

7 R/W (read/write); O=write access, 1=read access 

8 -CS (chip select); O=data bus valid, 1=data bus high-Z 
(tri-state) 


9-13 A0-A4 (address bits 0-4); serve to select one of the 29 registers 

14 GND (ground); Note: The SID should have its own ground 
connection for power in order to reduce interference with or 
from other system components. 

15-22 D0-D7; data lines to and from the processor system 

23 AZIN (analog input 2); operation described in Section 4.1.4 

24 ALIN (analog input 1); as 23, except for A/D converter 1 

25 VCC; supply voltage +5V 

26 EXT IN (external input); input for external audio signals to be 
alienated through the SID. 

27 AUDIO OUT; summed output of all signals created in the SID 

28 VDD; supply voltage +12V 


As we already mentioned, the SID 6581 has three independently 
programmable voices. 


No doubt some of our readers have already programmed sounds or 
sound sequences in BASIC 7.0. However, complex sound and music 
cannot be produced using the BASIC 7.0 commands. Also, the easy-to-use 
commands are not available in the 64 mode; this is no reason to give up 
since you can get a lot out of the SID with POKE commands; in principle 
the sng 7.0 interpreter does the same thing when it executes your 
commands. 


Those of you who have programmed some sounds in BASIC are 
familiar with or aware of terms like "envelope" and "amplitude modulation." 
We will explain these terms for everyone because they are very important 
when working with the SID. 


Each voice consists of an oscillator, an envelope generator, an 
amplitude modulator, and waveform generator. With a clock frequency of 
1MHz, the oscillator creates a fundamental frequency in the range 0-8200Hz 
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with a resolution of 16 bits. Four different waveforms are possible: 
sawtooth, square (with variable duty cycle), triangle, and the "white noise" 
familiar to every hi-fi freak. The waveform is an important criterion for the 
tone picture of the created sound, since every waveform has its own set of 
harmonics. A triangle wave is very soft, like a wood flute. The sawtooth 
waveform sounds more metallic, like a trumpet. A clarinet resembles a 
Square wave; it sounds very hollow. This leaves the white noise, which 
doesn't really resemble any instrument, but can be used to simulate drums. 
Special noise effects can be best created by superimposing another 
waveform on the noise. Noise is achieved through the superimposition of 
many random frequencies. 


The amplitude modulator affects the volume while the tone is being 
generated. This modulator is controlled by the envelope generator, which 
you can program directly. We will see how the envelope generator is 
programmed later. 


In addition, the outputs of the all the devices can be sent to a 
programmable filter where you can further influence the tone color. Another 
possibility for SID fans: Voices 1 and 2 can be ring-modulated by voice 3. 
That means that it consists of the fundamental voice together with the sum 
and difference with voice 3. With voice 3 you can read out the current value 
of the envelope generator during the course of a sound and then change the 
filter based on this data, for instance. 


4.1.3 Register description of the SID 


The base address of the SID 6581 is $D400 (54272). 


REG 0 Lower byte of oscillator frequency for voice 1. 
REG 1 Upper byte of oscillator frequency for voice 1. 
REG 2 Pulse width LSB for voice 1. 
REG 3 Pulse width MSB for voice 1. 


Registers 2 and 3 determine the on/off duty cycle of the 
square output on voice 1. Only bits 0-3 of register 3 are 
used. 
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REG 4 


REG 5 


Control register for voice 1 

Bit 0: KEY; Control bit for the course of thé envelope 
generator. When changed from 0 to 1, the volume of voice 1 
increases from zero to the maximum value (REG 24) within 
the "attack" time specified in REG 5 and then within the 
"decay" time specified in REG 5 falls to the "sustain" level 
programmed in REG 6, at which it remains until the control 
bit is changed to zero again. Then the volume falls to zero 
within the "release" time specified in REG 6. 

Bit 1: SYNC; 1=oscillator 1 is synchronized with oscillator 
3. This bit also has effect when voice three is supposed to be 
silent. 

Bit 2: RING; 1=the triangle waveform output of oscillator 1 
is replaced by a frequency mix (sum and difference of the 
frequencies of voices 1 and 3). This effect also occurs when 
voice three is silent. 

Bit 3: TEST; When another waveform is selected along with 
the noise generator in the same oscillator, it can occur that the 
noise generator is disabled. It can be re-enabled with this bit. 
Bit 4: TRI; 1=triangle wave form selected. 

Bit 5: SAW; 1=sawtooth waveform selected. 

Bit 6; PUL; 1=square waveform selected. The on/off 
relationship of this waveform is controlled in REG 2 and 


Bit 7: NSE; 1=noise generator selected. 

Note for bits 4-7: It is possible in practice to select multiple 
waveforms at the same time. In addition to what was said for 
bit 3, it should be noted that result is not exaclty the sum of 
all of the forms but more of a logical AND of the 
components. 


‘“ATTAC/DECAY 


Bits 0-3: These bits determine the time it takes until the 
volume falls from the maximum value to the sustain level. 
The selectable range is from 6ms to 24 seconds. 

Bits 4-7: Here the time is takes for the volume to reach the 
maximum value after the KEY bit is set is defined. The 
selectable range is from 2ms to 8 seconds. 
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REG 6 


REG 7-13 


REG 14-20 


REG 21 


REG 22 


REG 23 


SUSTAIN/RELEASE 

Bits 0-3: These bits determine the time within which the 
volume will fall from the sustain level after the KEY bit is 
cleared (end of the tone). The selectable range is 6ms to 24 
seconds. 

Bits 4-7: These bits specify the sustain level, the volume 
which will be maintained after the maximum value is reached 
and before it falls back. 


These registers control voice 2 in the same manner as do 
register 0-6, with the following exceptions: 

SYNC synchronizes oscillator 2 with oscillator 3. 

RING replaces the triangle output of oscillator three with the 
frequency mix of oscillators 2 and 3. 


These registers control voice 3 in the same manner as do 
registers 0-6 for voice 1, with the following exceptions: 
SYNC synchronizes oscillator 3 with oscillator 2. 

RING replaces the triangle wave from oscillator 3 with the 
frequency mix from oscillators 2 and 3. 


Filter frequency, low-order byte 
Only bits 0-2 are used. 


Filter frequency, high-order byte 

The 11-bit number in registers 21 and 22 determines the 
frequency. 

In the Commdore 128 this frequency is determined as 
follows: 
F=(30+W*5.8) Hz, whereby W is the 11-bit number. 


Filter resonance and switch 

Bit 0: 1=voice 1 is directed to the filter 

Bit 1: 1=voice 2 is directed to the filter 

Bit 2: 1=voice 3 is directed to the filter 

Bit 3: 1=the external source is directed to the filter 

Bits 4-7: These bits determine the resonance frequency of the 
filter. These are used to enhance specific sections of the 
frequency spectrum. The effect is especially noticeable on the 
sawtooth waveform. 
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REG 24 


This register has the following purposes: 

Bits 0-3: Total volume 

Bit 4: Switches the lowpass filter on 

Bit 5: Switches the bandpass filter on 

Bit 6: Switches the highpass filter on 

The high and lowpass filters have a slope of 12 dB/octave. 
The bandpass filter has a slope of 6 dB/octave. 

More than one filter can be enable at a time. If, for example, 
the high and lowpass filters are enabled, a notch filter results. 
In order to hear the effects of the filter, at least one filter must 
be enabled and at least one voice must be directed to the 
filter. ; 

In general, the filter is used to filter out specific ranges of the 
frequency spectrum. 

Filtering allows much finer and more ingenious manipulation 
of the tone picture than simply selecting the waveform 
permits. 

Different instruments can be simulated perfectly by changing 
the filter frequency during the tone. 


Bit 7: 1=voice 3 silent. This should be used whenever voice 
3 is used to control the other voices. 


All of the register described so far can only be written to. A read access 
returns no useful information. Only read accesses may be made to the 


following registers: 

REG 25 A/D Converter 1 

REG 26 A/D Converter 2 

REG 27 Noise generator for voice 3 


REG 28 


This register returns a random number which corresponds to 
the current state of the noise generator 3. The generator must 


a rae but voice 3 can be made inaudible (bit 7 in REG 


Envelope generator for voice 3 

This register returns the current condition of the relative 
volume of voice 3. This can be used to vary the frequency or 
filter parameters during the tone creation, for example. An 
example of this can be found in section 4.2.2. 
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Now that we have seen the table of registers, we want to clarify their 
use by means of short examples. We will place the emphasis on the 
tone-producing registers in section 4.1.5. Now we will examine the A/D 
converters. 


4.1.4 The analog/digital converter 


The words analog and digital are widely known. For example, clocks 
and watches with hands are called analog, while ones which display the 
time using numerals are called digital. These terms are derived from the way 
in which the time is displayed. 


An A/D converter is a device for converting an analog signal, such as a 
voltage, to a digital value. The problem is that one must convert an analog 
value with theoretically an infinite number of levels to a finite digital value 
with predetermined levels. In this conversion there is a maximum error of 
+/- the smallest digital step. 


As you can gather from the registers, the SID 6581 contains two A/D 
converters. These are designed with an internal reference voltage of about 
2.5 volts. 


The measuring procedure consists of charging an external capacitance 
and then placing a value in register 25 or 26 corresponding to the time 
required for a new charge of the capacitor to reach the reference voltage. 
This process is carried out repeatedly. 


4.1.4.1 The operation of the A/D converter 


A requirement of this type of A/D converter is that only resistance 
values can be measured, such as the position of a potentiometer, a 
light-sensitive resistance, or a temperature sensor. 


If voltages are to be measured, they must first be converted to the 
appropriate form, possibly with the help of a unijunction transistor. The 
measurement is made simply by connecting +5V to one end of the resistance 
and the other end to the analog input of the SID (available on the control 
port, the designations are POTX and POTY). The values read from register 
25 and 26 are measures of the resistances. 
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In order to use the entire scale of 8 bits, the resistance must range from 
200 ohms (no smaller) to 200 Kohms. The programming aspects of the A/D 
converter are handled in the next section. 


4.1.4.2 Using paddles 


Paddles are nothing more than potentiometers in handheld form and are 
therefore well suited for the A/D converters. The generic Atari type paddles 
can be connected to the Commodore 128. These are connected to control 
port 1 or 2 where you connect a joystick. 


Since some bits in CIA 1 and 2 are responsible for reading the keyboard 
as well as the paddles, writing a program to read the paddles is not all that 
simple. The best thing to do is to turn the keyboard off to inhibit 
nonsensical values, but only during the exact time of access of the paddles, 
since otherwise the keyboard will not be read. 


We want to show you a short machine language program that makes it 
possible to read the paddles with ease. The best thing to do is to include it in 
your BASIC programs in the form of a BASIC loader. The program 
occupies the area from $OCO00to $0C41. This area was chosen because it is 
free in C-128 mode. You can of course move it if you want to use it in 
C-64 mode, remembering to change the address $0C03 and $0C16 
accordingly. 


OCcOO SEI 7; INHIBIT KEYBOARD 

OCO1l LDA #580 *PARAMETERS FOR PADDLE SET A 
0CO3 JSR $0C2E ;GET A/D VALUES Al AND A2 
OCO6 STX $0201 *;AND STORE 

0CO9 SsTY $0202 

OcOC LDA $DCO0O0 *GET KEYS A FROM CIA1 


OCOF AND #S0C *;FILTER OUT REQUIRED BITS 
O0C1ll STA $0200 AND STORE 
0C14 LDA #$40 *PARAMETERS FOR PADDLE SET B 


0C16 JSR $0C2E iGET A/D VALUES B1 AND B2 
0C19 STX $0203 7AND STORE 

OCc1C sTY $0204 

OC1F LDA $DCO01 *GET KEYS B FROM CIA2 
OC22 AND #S0C ;FILTER OUT REQUIRED BITS 
0C24 STA $0205 ;AND STORE 
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0C27 
0Cc29 
O0C2C 
0C2D 
OC2E 
0C31 
0C33 
0C36 
0C38 
0C39 
0C3B 
OC3E 
0Cc41 


LDA #SFF 
STA $DC92 


STA S$DCOO 
ORA #$C0 
STA $DCO02 
LDX #$00 


BNE SCFF6 
LDX $D419 
LDY $D41A 


ALL BITS OUTPUT IN CIA 1 
7#TO REENABLE KEYBOARD READ 


;RETURN TO BASIC PROGRAM 
;SELECT PADDLE SET 

;AND SET CORRESPONDING BITS 
;TO OUTPUT 

;DELAY LOOP 

;TO QUIET THE 

;A/D INPUT 

;GET A/D 1 

;GET A/D 2 

;BACK TO MAIN PROGRAM 


Here is the BASIC loader with an example program. Connect the 
paddles, start the program, and see what it does. 


dy, 2 


10 DATA 


20 D 


30 DATA 
40 DATA 
50 DATA 


2 


OKE 54528, 32: REM SET CONFIGURATION 128 ONLY 


ATA 


12,96 


120,169,128,32,46,12,142,1,2,140,2,2,173 
0,220,41,12,141,0,2,169, 64,32,46,12,142 
3,2,140,4,2,173,1,220,41,12,141,5,2,169 
255,141,2, 220, 88, 96,141,0,220, 9,192,141, 2 
220,162,0, 202,208, 253,174,25,212,172,26, 


60 FOR M = 3072 TO 3072 + 65 
70 READ A: POKE M,A: NEXT : REM LOAD MACHINE 
LANGUAGE 


515 : REM PADDLE 1 CONTROL PORT 1 


90 AY = 516 : REM PADDLE 2 CONTROL PORT 1 


170 


BB 


517 : REM BUTTON PADDLE 1 

513 : REM PADDLE 2 CONTROL PORT 2 
514 : REM PADDLE 2 CONTROL PORT 2 
512 : REM BUTTON PADDLE 2 
PRINT"<CLR>" 


SYS 3072 : REM START M/L 

PRINT"<HOME>" PEEK (AX)" "PEEK (AY)" "PEEK (BA) 
PRINT" <CRS DOWN TWO>" PEEK(BX)" "PEEK (BY) " 
"PEEK (BB) 


GOTO 140 
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4.1.5 Programming the SID 


We have already talked about terms like envelope and ADSR control; 
we will now look at how we can program the SID directly in machine 
language. 


The tone color is determined by the selection of the waveform; filters 
can further be used to change the tone picture. The envelope determines the 
course of the tone, the volume, the length of the rise, etc. The following 
figure should clarify the individual stages that a sound goes through: 


15 


VOLUME LEVEL 


0 ATTACK DECAY SUSTAIN RELEASE 
GATE BIT ON GATE BIT OFF 


We can recognize from the figure that sound is divided into four basic 
Stages: attack, decay to sustain level, sustain, and release to zero. The 
duration of individual stages can be set for each voice independently. The 
attack of the tone starts when the KEY bit is set (bit 0, register 4 for voice 
1). All values, including frequency, attack, decay, sustain, and release, 
must be defined before the KEY bit is set! 


The tone rises from zero to the maximum volume (REG 14) within the 
time frame defined in attack (REG 5, bits 4-7). After the maximum value is 
attained, the volume drops to the sustain volume (REG 6, bits 4-7) within 
the decay (REG 5, bits 0-3) time. This volume is maintained until the KEY 
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bit is cleared. Once this happens, the volume falls back to zero within the 
release time (REG 6, bits 0-3). The register numbers given in parentheses 
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refer to voice 1. For voice 2 you must add 7, and add 14 for voice 3. 


The duration of the attack can be defined in a time frame from 2ms to 8 
seconds. The values for decay and release lie in the range 6ms to 24 


seconds. These time frames are divided into 16 steps, which you see in this 


table: 


COIAUAWNHOS 


Attack Decay/Release 


2 ms 6 ms 
8 ms 24 ms 
16 ms 48 ms 
24 ms 72 ms 
38 ms 114 ms 
56 ms 168 ms 
68 ms 204 ms 
80 ms 240 ms 
100 ms 300 ms 
250 ms 750 ms 
500 ms 1.55 
800 ms 2.45 
ls 3s 
35 9s 
5s 15s 
8s 24s 


The following program is designed to familiarize you with the 
waveforms and sound range of the SID 6581: 


10 
20 
30 
40 
50 
60 
70 
80 


90 


$1 
S2 
$3 
FL 
FH 
RS 
PL 


POKE 
CONTROL REGISTERS AT 0 

POKE $1+2,0: POKE S2+2,0: POKE $3+2,0: REM 
PULSE AT 0 


54272 
54279 
54286 
54293 
54295 
54295 
= 54296 
$1+4, 0: 


: REM VOICE 1 

: REM VOICE 2 

: REM VOICE 3 

: REM FILTER LO-BYTE 

: REM FILTER HIGH BYTE 

: REM RESONANCE AND COUNTER 


REM VOLUME 
POKE $2+4,0: POKE $3+4,0: REM 
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100 POKE $1+5,0: POKE S1+6,240: REM ATTACK/DECAY 


VOICE 1 
120 POKE RS,O: POKE PL,15: REM RESONANCE/ VOLUME 
=15 


130 PRINT "TRIANGLE..." 

140 T = 16: GOSUB 400 

150 PRINT "SAWTOOTH..." 

160 T = 32 : GOSUB 300 

170 PRINT "SQUARE..." 

180 T = 64: GOSUB 300 

190 PRINT "NOISE..." 

200 T = 128: GOSUB 300 

210 PRINT END" 

220 END 

300 POKE S1,0: POKE S1+1,0: REM FREQUENCY 

310 POKE S1+4, T+1l: REM TONE, WAVE DEFINATION 
320 FOR I = 0 TO 255 : RFOR J = 0 TO 255 STEP 50 
330 POKE S1,J:POKE S1t+1,I 

340 NEXT J,I 

350 POKE S1+4,T; REM TONE 

360 RETURN 


Lines 10 to 80 should be included in every program using sound. After 
you have typed the program and started it, you will hear the frequency 
spectrum and the various waveforms of the SID. We want to give you an 
example of what happens when you change the envelope. For the sake of 
simplicity, take lines 10 to 80 from our example and add the following lines: 


100 A=9: D=9: S=8: R=9: H=400 

110 POKE S1+15,16*A+D: POKE S1+16,16*S+R 

120 POKE RS,0: POKE PL,15 

130 POKE S1,37: POKE S1+1,17: REM FREQUENCY 
140 POKE S1+4,33 : REM SOUND ON AND SAWTOOTH 
150 FOR I=0 TO H: NEXT 

160 POKE S1+4,32: REM RELEASE TONE 


You have no doubt noticed the significance of the individual variables: 
=attack, D=decay, S=sustain, and R=release. The variable H is the 
duration of the sustain. Change the variables to get a feeling for the various 
sounds that different values can produce. Note that no variable, with the 
exception of H, may contain a value greater than 15. If you want to use the 
envelope, do not load register 4 with zero after the delay loop which defines 
the duration of the tone; this causes the tone to die. Do it like we did in the 
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example: When turning the tone on, load register 4 with the waveform+1. 
To turn the tone off, just load register 4 with the value for the waveform 
again. 


__ The best way to learn how anything works is to try it out. We would 
like to present a few more examples for you to experiment with. Feel free to 
change the tone parameters to see what sort of effects you can get. The next 


example program uses all three voices of the SID. Again, add lines 10-80 to 
this example. 


100 A=0: D=1: S=13: R=10: H=100 

110 POKE $1+15,16*A+D: POKE S1+6,16*S+R 

120 POKE S2+15,16*A+D: POKE S2+6,16*S+R 

130 POKE $3+15,16*A+D: POKE $3+6,16*S+R 

140 POKE RS,0: POKE PL,15 

150 POKE $1,37: POKE $1+1,17 

160 POKE $2,154: POKE.S2+1,21 

170 POKE $3,177: POKE S$3+1,25 

180 POKE $1+4,33: POKE $2+4,33: POKE S3+4,33 
190 FOR I=0 TO H: NEXT 

200 POKE $1+4,32: POKE S$2+4,32: POKE $3+4,32 


With the notes in DATA lines, you can use such a routine to play some 
music. At the end of this section is a program to play a song. 


The next example will demonstrate how the frequency of a tone can be 
changed in relationship to the envelope. Here we use voice 3 since it is the 
only one from which we can read the envelope. 


100 A=9: D=9: S=9: H=30 . 

110 POKE RS,0O: POKE P,15 

120 POKE S$3+5,16*A+D: POKE S3+6, 16*S+R 

130 POKE S$3+4,33 

140 FOR I=0 TO H: POKE S3+1, PEEK (54300): NEXT 
150 POKE S3+4,32 

160 FOR I=0 TO R*4: POKE S3+1, PEEK (54300): NEXT 


We want to give you an example of a special effect created with "white 


noise". We'll let the Federation Starship Enterprise roar through our living 
room: 
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100 A=15: D=0: S=8: R=13: H=800 

110 POKE RS,0O: POKE PL,15 

120 POKE $1,0: POKE $1+1,30 

130 POKE S2,0: POKE S2+1,1 

140 POKE S$3,0: POKE S$3+1,100 

150 POKE S$1+5,16*A+D: POKE S1+6,16*S+R 
160 POKE S$1+4,129: POKE $3+4,23 

170 FOR I=0 TO H: NEXT 

180 POKE S$1+4,128: POKE S$3+4,16 


To convert a note for the SID, you must insert th frequency of the note 
into the following formula: 


F=Freq/0.06097 


Since this value consists of a high and low value, we must process the 
calculated value further: 


FI=F AND 15: Fh=INT(F/256) 
4.2 The Filters 


The SID offers three filters which you can use individually or in 
combination. The harmonic content of a sound wave (which is what a tone 
is) is controlled by means of filters. The highpass filter dampens 
frequencies below a defined cutoff frequency. The tones then sound 
somewhat metallic. The opposite of a highpass filter is the lowpass filter. 
Frequencies above a defined cutoff point are damped by this filter. There is 
also a bandpass filter which allows only a narrow band of frequencies 
through. If the highpass and lowpass filters are combined, only the cutoff 


frequency is damped, all other frequencies are undisturbed. This is called a 
notch filter. 


In addition to filter type and filter frequency, you can also set the filter 
resonance. In order to understand the significance of this parameter, you 
Should imagine the filter as a fourth oscillator in the sound chip. Filters, like 
oscillators, can be set to a specific frequency. 
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The resonance value that determines the filter itself works like an 
oscillator. If the resonance is set to zero, the filter simply cuts frequencies 
off (as already discussed). If the resonance value is increased step by step, 
the filter begins to oscillate more and more at the filter frequency. 


The maximum value of the filter resonance is 15--the sound of the 
oscillator directed through the filter is then radically changed and influenced 
by the filter frequency. It is easy to see that a whole spectrum of new 
sounds can be obtained using the filters. 


- The following register table shows which SID registers influence the 
ters: : 


Register ---- Contents ---- 

# Bit7 Bit6 BitS5 Bit4 Bit3 Bit2 Bit1 BitO 
21 - freq2 freq1 freqO 
22 freqlO freq9 freq8 freq7 freq6 freq5 freq4 freq3 
23 res3 res2 resi resO filtext filt3 filt2 filtl 
24 3OFF highp bandp lowp vol3 vol2 voll vol0 


4.3 Synchronization and Ring Modulation 


The filters allow use to change the signals produced by the individual 
oscillators. There is another way to change the oscillator signal in the SID: 
the synchronization and ring modulation. 


While the only the signal of a single oscillator can be affected by the 
filter, synchonization and ring modulation give us the ability to change the 
signal of one or two oscillators in relation to their signals. An oscillator is a 
tone source, but its signal is determined by the signal of another oscillator. 


For ring modulation, the digital number values of the oscillations ofa 
given oscillator and the oscillator to be affected are multiplied together 
within the SID and output through the affected oscillator. When the 
frequencies of the two oscillators is close, a very complex waveform results 


containing many non-harmonic overtones, so that it often sounds metallic or 
bell-like. 
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Here is the program we promised that will play a song: 


O REM *** SONG ok 
4 FOR I= 54272 TO 54296: POKE I,0:NEXT 
10 FIRST=54272 


11 VL =FIRST+24 
12 AN =FIRST+5 
13 OUT =FIRST+6 
14 H1 =FIRST 

15 H2 =FIRST+1 


16 VCl =FIRST+4 

20 POKE VL,15 

21 POKEAN, 23 

22 POKE OUT,123 

30 READ NTE,DUR 

40 IF NTE=0 THEN END 

50 F2=NTE /256:F1=NTE AND 255 

60 POKE H2,F2:POKE H1,F1 

70 POKE VC1,33:FOR I = 0 TO DUR*100:NEXT 

80 POKE VC1,32:FOR I = 0 TO DUR*100:NEXT 

90 GOTO 30 

100 REM *** NOTES *** 

130 DATA 6430,1, 6430,1,6430,3,7217,2,5407,2 

140 DATA 6430,1, 6430,2,8583, 3, 9634,2,9634,1, 
10814,2 

150 DATA 10814,3, 9634, 2, 9634,2,8583,1,8583,5, 
10814,1 

160 DATA 11457,3,10820,2,10814,2,9636,4,10814,1, 
9634,1 

170 DATA 9634,1,8583,11,10814,1,9634,2,8534,5, 
10814,1 

180 DATA 12860,2,14435,5,12860,1,12860,2,10814,3 
9634,2 

190 DATA 9634,1,9634,2,10814,9,10814,2,11457,3 
10820,2 . 

200 DATA 10814,2,9634,4,10814,1, 9634,1,9634,1, 
8585,15 

210 DATA 0,0 


This concludes out chapter on the SID. We hope that you have found 
enough information and suggestions to start working with this chip. This 
applies particularly to those of you who can and want to program in 
machine language. Have fun! 
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Chapter 5: The 8563 VDC Chip 


5.1 General Information 


As mentioned in Chapter 2, you can connect two monitors to your 
Commodore 128. The 40-column monitor is contrilled by the VIC chip. The 
80 column RGB monitor, is driven by the 8563 VDC. The 80-column 
screen is well suited for professional applications that are impossible or 
more difficult with a 40-column screen. RGB stands for Red Green Blue, 
which means that the colors red, green, and blue can be displayed on the 
screen in various combinations. The color white, for example, is achieved 
with an equal mix of all three colors; the color yellow can be made with a 
combination of red and green. But don't worry--you don't have to figure 
out which colors you have to mix to obtain the one you want. We will come 
back to the color codes for the 15 possible colors. 


An important bonus of the VDC chip is that it doesn't use up any of the 
main memory for storing its screen contents. It has 16K of its own memory 
which it uses for video RAM and attribute RAM. Even the character 
generator is copied into this 16K. 


On the international models of the C-128, pressing the <ASCII/DIN> 
key copies a foreign language character set into memory. You will notice 
that it takes a little while before the cursor is ready again.This is because all 
4096 bytes of the charater generator are copied from ROM into the video 
controller RAM. Stop and think for a minute: Why 4096 bytes? There are 
two character sets. 2048 bytes are all that are required to define 256 
characters! You are right of course, but both character sets selected with the 
Commodore key on the 40-column screen are stored in the VDC memory. 
These two character sets can be displayed simultaneously on the 80-column 
screen. A bit in the attribute RAM determintes which character set is to be 
used. Since the character set is in the VDC RAM, it is easy to change the 
appearance of individual characters by simply changing the contents of the 
RAM. 


But all of these advantages that this separate video RAM offers us has 
another side to it. Addressing this RAM is quite complicated--it has to be 
done indirectly via two registers on the VDC chip. We will talk about this 
more later. 
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Those who think it would be boring to take a closer look at this chip are 
deceiving themselves. This chip offers an enormous number of possibilities; 
to describe them all would far exceed the scope of this book. Hackers are 
advised to take a closer look at this chip, since it seems that you always find 
something new that can be done with it. We will limit ourselves to the most 
important, most interesting possibilities. The expectations that one has for 
an 80-column controller are far exceeded: this video controller can display 


hi-resolution graphics with a resolution of 640x200 points! 


5.2 The Pinout: 


CCLK; Character Clock 

-DCLK; Dot Clock 

HSYNC; Horizontal Synchronization 
CS; System time 

Not connected 

-CS; Chip Select 

-RS; Resister Select (Address Line AO) 
-R/W; Read-Write Selection 

D7-D6; Data Lines D7-D6 


GND; 

D5-D0: Data Line D5-DO 

DISPEN; Display Enable (not wired) 
VSYNC; Vertical Synchronization. 
DR/-W; Display-RAM READ/WRITE 
-RES; Reset Line (output) - meaning unknown 
-RES; Reset Line (input) 

TST; meaning unkown 

LPEN; Light Pen 

DAO-DA&; address Display-RAM 
DDO-DD&; Data Lines Display-RAM 


R; Red 
-RAS; Low-Address Select 
-CAS; Column Address Select 
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5.3 The VDC Registers 


The 8563 VDC chip has a total of 37 registers available, which have the 
following meanings: (The values in parentheses indicate the default values 
that are loaded into the registers after a warm start.) 


REGO 


REG 1 


REG 2 


REG 3 


REG 4 


REG 5 


REG 6 


HORIZONTAL TOTAL; (126) This register specifies the 
total number of characters per line, including the beam 
return. This register should be loaded with an 8-bit value 
corresponding to the technical data of the monitor. 


HORIZONTAL DISPLAYED; (80) In this register the 
number of actual characters per line is programmed. All 8-bit 
values smaller than REG 0 are possible. The standard value 
is 80. 


HORIZONTAL SYNC POSITION; (102) In this the left 
border is sychronized. All 8-bit values smaller than REG 0 
are possible. If the register value is reduced, the left border 
moves right; if the contents are increased, the left border 
moves left. 


SYNC WIDTH; (73) Bits 0-3 determine the horizontal sync 
pulse width in characters. The value zero cannot be 
programmed. Bits 4-7 determine the vertical sync pulse 
width multiples of a raster period. If zero is programmed, it 
means 16. 


VERTICAL TOTAL; (39) This register contains the number 
of total lines including the vertical beam return. This register 
should be programmed according to the technical data of the 
monitor used. 


VERTICAL TOTAL ADJUST; (224) Bits 0-4 serve as a fine 
adjustment for REG 4. Bits 5-7 are always set. The default 
value 224 means that bits 0-4 are cleared. 


VERTICAL DISPLAYED; (25) Contains the number of 


representable characters. Any value smaller than REG 4 is 
possible. 
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REG 7 


REG 8 


REG 9 

REG 10 
REG 11 
REG 12 


REG 13 


REG 14 


REG 15 


VERTICAL SYNC POSITION; (32) This register defines 
the upper border of the screen. If the contents of this register 
are increased, the screen moves up. Correspondingly, the 
screen moves down when the value is decreased. 


INTERLACE MODE; (252) Bits 0-1 determine the interlace 
mode. Normally these bits are cleared. 00 and 10= 
non-interlace mode, 01=interlace-sync mode (the screen 
appears to flicker), 11=interlace-sync and video mode. Try 
this once! 


CHARACTER TOTAL VERTICAL; (231) Bits 0-4 
determine the number of raster lines per character (vertical) 
minus one. Bits 5-7 are always set. The default value 231 
stands for 7, or 7+1=8 raster lines per character. 


CURSOR MODE/START RASTER; (160) Bits 5-6 set the 
cursor mode: 00=non-blinking, 01=cursor not displayed, 
10=blink fast, 11=normal blink. 


CURSOR END SCAN LINE; (231) Only bits 0-4 are 
relevant; the others are always set. This register contains the 
line at which the cursor will stop. For a block cursor for 
example, the cursor starts at line 0 and stops at line 7. For an 
underline cursor: start and end at 7. 


DISPLAY START ADDRESS HI; (0) The high byte of the 
start of the video RAM is stored in this register. Normally the 
video RAM lies at address $0000 in the special VDC 
memory. 


DISPLAY START ADDRESS LO; (0) The low-bye of the 
video RAM corresponding to REG 12 is defined here. 


CURSOR POSITION HI; The high byte of the cursor is 
defined in this register. The cursor address must be specified 
because the VDC will let it blink on its own. 


CURSOR POSITION LO; The low byte of the cursor 
address corresponding to REG 14 is defined here. 
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REG 16 


REG 17 


REG 18 


REG 19 


REG 20 


REG 21 


REG 22 


REG 23 


REG 24 


LIGHT PEN VERTICAL; This and the following register 
can only be read. The-two high-order bytes in register 16 are 
always zero. This register returns the vertical address of the 
light pen. The value must be corrected by the software 
because the raster beam will have moved by the time the 
raster line is determined. 


LIGHT PEN HORIZONTAL; Corresponding to register 16, 
this register contains the horizontal address of the light pen. 


UPDATE ADDRESS HI; The high byte of the address to be 
manipulated is given in this register. It doesn't make any 
difference if the address is in video RAM, attribute RAM, or 
somewhere else. 


UPDATE ADDRESS LO; The low byte of the address to be 
manipulated is given here in connection with register 18. 


ATTRIBUTE ADDRESS HI; (4) The high-order byte of the 
start address of the attribute memory is placed in this register. 
The attribute RAM defines the color and status of each 
character on the screen. 


ATTRIBUTE ADDRESS LO; (0) In connection with register 

20, this register sets the low-order byte of the start address. 

< the normal mode the attribute RAM starts at address 
0400. 


CHARACTER TOTAL & DISPLAYED; (120) Bits 4-7 
determine the total number of displayed horizontal lines (7). 
Bits 0-3 set the displayed number of lines (8). This defines 
the width of a character. 


CHARACTER DSP(V); (232) Number of vertical lines 
displayed (8); this defines the height of a character. 


VERTICAL SMOOTH SCROLL; (32) 

Bit 7: COPY bit; when this bit is set, the range at the 
block-start address is copied to the update address when the 
word count register is written. If this bit is cleared, the 
update address is filled with the data register (REG 31) 

Bit 6: RVS bit; If this bit is set, the entire screen display is 
reversed. A set point is cleared and a cleared point is set. 
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REG 25 


REG 26 


REG 27 


REG 28 


Bit 5: CBRATE; meaning is not yet known. 
Bits 0-4: Here the vertical edge of the screen can be moved 
(smooth scrolling). 


HORIZONTAL SMOOTH SCROLLING; (64) 

Bit 7: TEXT; if this bit is cleared, the text mode is enabled. 
The information for the characters is taken from the 
CHARROM. If this bit is set, single-point graphics are 
enabled. 

Bit 6: ATR; This bit indicates whether the color information 
for a character should come from the attribute RAM (set bit) 
or if all points should appear in monochrome (color is in 
REG 26). 

Bit 5: SEMI; semi-graphic operating mode; 

1: the existing horizontal space between two characters is 
filled with the color of the character last displayed. 

0: like (1), but the space is filled with the background color. 
Bit 4: DBL; If this bit is set, the characters appear in double 
width. 

0: Pixel size=1 dot clock 

1: Pixel size=2 dot clocks 

bits 0-3: Here the horizontal edge can be moved in raster 
lines (smooth scrolling). 


FORGND/BACKGND; (240) 

Bits 0-3 determines the background color. 

Bits 4-7 determine the foreground color for graphic or 
monchrome mode. 


ADDRESS INCREMENT ROW; (0) 

This register defines the number of bytes are to be added to 
the video RAM for each column. Normally this is zero. If 
you redefine the character width, for instance, (and thereby 
the the number of characters/line), this value must be 
reprogrammed. : 


CHARACTER BASE ADDRESS; (47) 

Bits 5-7 determine the base of the character generator, 
address bits 13 to 15; the character generator can only be 
moved in 8K steps. 

Bit 4: RAM; This bit defines the RAM type: 

1: 4164; 0: 4416 
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REG 29 


REG 30 


REG 31 


REG 32 


REG 33 


REG 34 


REG 35 


REG 36 


UNDERLINE SCAN LINE; (231) 

Bits 0-4 indicate the line in which to underline. The default 
value is 8. This register can be used to change underlining to 
overlining. 


WORD COUNT; 

In this register you write the number of characters which are 
to be written to the update address, or if the COPY bit is set, 
the number of bytes to be copied. 


DATA; 

This register contains the data to be written to a memory 
location. If a memory location is read, the contents will 
appear in this register. 


BLOCK START ADDRESS HI, 
This register (and the following) defines the start address of 
the block to be copied. 


BLOCK START ADDRESS LO; 
Corresponding to register 32, this register defines the 
low-order byte. 


DISPLAY ENABLE BEGIN; (125) 
Number of characters from the start of the displayed line to 
the postive edge on the display enable pin. 


DISPLAY ENABLE END; (64) 
Like REG 34, but until the negative edge. 


DRAM REFRESH RATE; (245) 


Bits 0-3 specify the rate at which the VDC memory must be 
refreshed (refresh cycles per screen line). 
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To look at each register individually is not very informative. At best, 
you can recognize what the individual registers do when you simply write 
values to them and see what happens. Not all of the registers are useful to 
the programmer, as is the case with the VIC or SID chip. The VDC contains 
a number of registers that are present simply for screen display and 
synchronization. You should never change these registers. 


The base address of the 80-column video controller is $D600. A little 
tip: At least in our prototype, the VDC could also be manipulated in the 64 
mode; this means that 80-column mode is possible in the 64 mode as well! 
In addition to the ability to program in the 2MHz mode, this presents 
another small gap in the compatibility of the 64 mode. 


You cannot address the various registers of the VDC as simply as with 
the VIC or SID. Using the VIC or SID, you simply add the register number 
to the base address. In the VDC, register manipulation is relative, meaning 
that you have to tell the controller which register you want to read or write 
and then perform this operation. This is certainly a complicated method, but 
you get used to it quickly. If, for example, you want to change a byte in the 
video RAM, you must address this memory location relatively via the 
registers, since they are not directly addressable. 


Now we'll describe the technique. The VDC can be accessed at address 
$D600 and $D601. 


If you want to read a register, for instance, you must write the register 
address in $D600. The VDC then returns the current contents of the register 
in address $D601. 


If you want to write to a register, write the register number in address 
$D600 and the new register value in address $D601. 


Address $D600 


(Write) ---- ---- R5 R4 R3 R2 R1_ RO 
(Read) Status LPVBLANK ----  ---- ---- 0 ---- 0 --=- 
Address $D601 


(Read/write) D7 D6 D5 D4 D3 D2 Di ODO 
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If you write to address $D600, the register is selected. Bits 0 to 5 are 
used for this. You can also read from $D600; this will return a status report 
of the VDC. Bit 7, the status bit, indicates if the VDC is finished with its 
last action or not. If this bit is set, the video controller is not yet done, and 
you must wait until it gives the green light or data will disappear. It is 
necessary to test this bit only in machine language since BASIC is far too 
slow for this to be a problem. If, for example, we want to write to the 
DATA regiser in the VDC in machine language, it would look like this: 


LDA #S1F ;DATA REGISTER 
STA $D600 ;SELECT 
WAIT BIT $D600 ;TEST STATUS BIT 
BMI WAIT ;NOT SET, THEN NOT DONE 
LDA #$21 ;ASCII CODE FOR "!" 
STA $D601 ;AND WRITE 
RTS ; RETURN 


In this routine, we have placed the value $1F into the VDC select 
register. We loop at WAIT until the VDC tells us that it has accepted our 
value. Then we can write into the register at $D601. Another delay routine 
should be included after writing to address $D601, though this depends on 
the program. 


Bit 6 of address $D600 is reserved for the light pen and does not 
interest us at the moment. Bit 5 tells us if the cathode beam is on its return 
course (bit is set) or not. This can be used for synchronizing various 
activities to the beam. The rest of the bits are not used. 


To summarize, writing to address $D600 selects the VDC register. 
Writing to address $D601 transfers the data. 


You can use the following machine language code to read the value of 
the DATA register: 


LDA #$1F *;DATA REGISTER 

STA $D600 ;ADDRESS REGISTER 
WAIT BIT $D600 ;STATUS BIT STILL SET? 

BPL WAIT *;NOT DONE 

LDA $D601 ;GET CURRENT CONTENTS 


We can also manipulate the VDC from BASIC. But because of 


BASIC's slowness, there may be some problems, so you shouldn't be 
annoyed if things don't work right away. 
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Read and writing the DATA register in BASIC would look like this: 


10 A=DEC("D600"): D=A+1: REM BASE ADDRESS VDC 
20 POKE A,31: PRINT PEEK(D): REM GET REG CONTENTS 
30 POKE A,31: POKE D,33: WRITE TO REGISTER 


But now you may want to know how to work with screen addresses. 
We know that the video RAM starts at address $0000 and consists of 2000 
characters. To manipulate an address in RAM, you must first define 
whether you want to read or write in the update register. 


Let's show you with a short BASIC program: 


10 A=DEC ("D600"): D=A+1 

20 POKE A,18: POKE D,0: REM UPDATE ADDRESS HI BYTE 
30 POKE A,19: POKE D,0O: REM UPDATE ADDRESS LO BYTE 
40 POKE A,31: POKE D,1: REM A 1 FOR "A" 

50 POKE A,30: POKE D,1: REM SET CHAR COUNTER 


It demonstrates several key points. The order in which you POKE is 
important. First the update address is selected. Next the character to 
be displayed is sent. Finally the number of times the character is to be 
displayed is sent. If you haven't sent the update address, you won't get 
your desired results. 


Unfortunately this routine probably won't work! Not in the FAST 
mode nor the SLOW mode. You can see this more clearly by adding the 
following lines to the program: 


5 PRINT CHR$(19);" ": REM TWO SPACES 
60 GETKEY AS: RUN 


Each time you press a key, the first two positions on the screen are 
erased. After this, the video controller is "requested" to display an "A" in 
the first screen position. So we can check to see if an"A" is really displayed 
at the correct position. 


When we start the program, we see that the result does not correspond 
to our expectations. The A moves from left to right. It is not always placed 


at the right location. Sometimes an "@" even appears on the screen instead 
of the A. 


102 


Abacus Software C-128 Internals 





Unfortunately we can't achieve any better results here. In BASIC, it 
appears to be impossible. We have tried various methods, all without 
success. BASIC is simply too slow. What we can't accomplish in BASIC, 
we should at least be able to do in machine language. So let's look at a short 
machine language program which does the same thing as our BASIC 
program. 


Below is the assembly language listing of this routine, which is 
designed to display an "A" on the screen. Press the reset button on your 
computer to make sure all the VDC registers are reset before entering this 
program. 


0O0DO00 8E 00 D6 STX $D600 
00D03 2C 00 D6 BIT $D600 


OOD06 10 FB BPL $0D03 
OODO08 8D 01 D6 STA $D601 
OODOB 60 RTS 

OODOC A2 12 LDX #$12 

OODOE A9 00 LDA #$00 

00D10 20 00 24 JSR $0D00 
00D13 E8 INX 

00D14 20 00 24 JSR $0D00 
00D17 A2 1F LDX #$1F 

00D19 A9 01 LDA #$01 

00D1B 20 00 24 JSR $0D00 
O0OD1E CA DEX 


OODIF 4c 00 24 MP $0D00_ 


This little machine language routine can be entered with the built-in 
monitor and tested with the following BASIC program: 


10 PRINT CHRS (147); 
20 SYS DEC("ODOC"): GETKEYS$: RUN 


Start the program with RUN. The result will probably surprise you. 
The position is right, but now we have two "A's" instead of one. The VDC 
displays word count+1 many characters, though it does this very carefully 
and at the correct address. If we had wanted to display two "A's", we 
would be all set, but we wanted just one. Loading the word count register 
with zero causes 256 characters to be printed. 


The solution is quite simple: If you want to display just one character, 
do not write to the word count register after selecting the update address and 


103 


Abacus Software C-128 Internals 





the DATA register. Just load the update address with a new value or read 
from this register--then it works. 


To try this out we need to change our machine language program at 
address $00D1E: 


OOD1E A2 12 LDX #$12 
00D20 4c 00 24 JMP SODOO 


You see that it doesn't matter what value you write to the update 
register. The sample program is located in the output buffer for the RS-232 
($0D00-$0DFF). Now we'll change the machine language routine so we 
can write any character to any position, even in BASIC. 


50 FOR I=0 TO 36 


60 : READ X 
70 : POKE DEC("DOO")+I,X 


80 : S=S+X 

90 NEXT 

100 IF S<>2850 THEN PRINT "*** ERROR IN DATA ***";: 
END 

110 : 

120 DATA 142,0,214,44,0,214,16,251,141,1,214, 96, 
162,18,169,0 

130 DATA 32,0,13,232,169,0,32,0,13,162,31,169,1, 
32,0,13 

140 DATA 162,18,76,0,13 

150: 

160 REM *** TRY IT OUT *** 

170 


180 PRINT CHRS$(147); 
190 SYS DEC("DOC") : GETKEY AS: GOTO 180 


Now we have the program we wanted, even if it can't be done in "pure" 
BASIC. Maybe there is some algorithm which works in BASIC and permits 
manipulations to be made on the 80-column screen. 


As already mentioned, this routine can display any character at any 
location on the screen. To make it do this, you have to write the high byte of 
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the address to address $0DOF, the low byte to address $0D15, and the 
character to address $0D1C. Try it once with the following sample program: 


10 REM sHs===sssss=e=SS===SSSSSSSSsSSSSSSS==55= 
20 REM EXAMPLE PROGRAM FOR POKE ROUTINE 
30 REM =====sss=ss=sSSSSS=SSSSSSSSSSSSSSSSS5= 
40 : 
50 LO=DEC("D15"): HI=DEC("DOF") : PO=DEC("D1C") 
60 FOR I=0 TO 1999 

70 : POKE LO, I AND 255 : REM POKE LOW BYTE 
80 : POKE HI, 1/256 : REM POKE HIGH BYTE 
90 : POKE PO, I AND 255 : REM FOR EXAMPLE 
100 : SYS DEC("DOC") 
110 NEXT 

120 GETKEY A$ 


But we don't want to display just one character. Sometimes it would be 
practical if we could display 80 characters at once (with the help of the word 
count register), for example, to erase a line or something similar. But the 
VDC might display one character too many. Imagine a word processing 
program that had this problem: it would be quite aggravating. 


This error must have been compensated for in the operating system, 
though. The solution is (what, again?) rather simple and works very well. 


You know the starting address of the area to be filled with characters. 
Let's say that you want to display n characters. So you can calculate the 
address in video RAM where they will be written. Simply let the video 
controller fill n-1 characters. 


Next we can read the update address (which the VDC 
automatically increments) to determine if it has displayed the correct number 
of characters. If so then we are done. Otherwise we must display one more 
character. This method is always faster than writing each character by itself. 
You can use an operating system routine that outputs a character based on 
the update address and DATA register as many times as the value in the 
accumulator specifies. This routine is found at the address $C53E. Place 
the calculated address in $0A3C/$0A3D. We'll add the routine to the one 
already existing: 
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00D25 A2 12 LDX #$12 
00D27 A9 00 LDA #$00 
00D29 20 00 OD JSR $ODO0 
00D2c 8D 3D OA STA $0OA3D 
O0D2F E8 INX 

00D30 AS 00 LDA #$00 
00D32 20 00 OD JSR $ODO00 
00D35 8D 3C OA STA SOA3C 


00D38 A9 00 LDA #$00 
OOD3A A2 1F LDX #$1F 
OOD3C 20 00 OD JSR SODOO 
OOD3F A9 00 LDA #$00 
00D41 18 CLC 
00D42 48 PHA 


00D43 6D 3C OA ADC $0A3C 
00D46 8D 3C OA STA $0A3C 


00D49 90 03 BCC SOD4E 
00D4B EE 3D OA INC $0A3D 
OOD4E 68 PLA 


OOD4F 4C 3E C5 JMP S$C53EA 
You can add the following DATA lines to the BASIC loader: 


150 DATA 162,18,169,0,32,0,13,141, 61,10,232,169,0, 
32,0,13 

160 DATA 141,60,10,169,0,162,31,32,0,13,169,0,24, 
72,109, 60 

170 DATA 10,144,3,238,61,10,104,76, 62,197 


Lines SO and 100 must also be changed: 


50 FOR I=0 TO 81 
100 IF S<>5859 THEN PRINT "*** ERROR IN DATA ***": 
END 


Store the high byte of the starting address at address $0D28, the low 
byte at address $0D31. You must POKE the fill character into address 
$0D39 and the number at address $0D40. Example: 


POKE DEC("0D28"),0 : POKE DEC("0D31"),0: REM ADDR 
POKE DEC ("0D39"),33: REM FILL CHARACTER 

POKE DEC("0D40"),79: REM FILL QUANTITY-1 

SYS DEC("0D25") : REM CALL THE ROUTINE 
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Once you enter these lines, the first line will be filled with exclamation 
points. 


As already mentioned, you can change the attribute RAM in the same 
way as we changed the screen contents. For example, if you want to display 
the first line in flashing white, you must fill the attribute RAM with 
$1F=31. To do this we enter the following lines: 


POKE DEC("0D28"),8 : POKE DEC("0D31"),0: 
REM ATTRIBUTE RAM 
POKE DEC ("0D39"),31: REM FILL CHARACTER 
POKE DEC("0D40"),80: REM FILL QUANTITY 
SYS DEC ("0D25") : REM CALL THE ROUTINE 


5.4.1 The character set 


The character set in the VDC can be easily changed. Sixteen bytes of 
RAM must be defined per character. Eight bytes are copied from the 
CHARROM, and eight additional zero-bytes are appended for reasons 
internal to the VDC. The character set starts at address $2000 for the VDC. 
To read a character out or to change it, you can find it with this address: 


2*4096 + <code>*16 


The VDC, unlike the VIC, can display the two character sets, obtained 
with <SHIFT><Commodore> in 40 column mode, on the screen at the 
same time since these are both found in the VDC RAM. The reverse 
characters are also defined, though these aren't really necessary since a bit 
in the attribute RAM controls whether a character is displayed normal or in 


reverse. Both of these features can be utilized if you want define additional 
characters. 


The memory layout of the VDC RAM looks like this: 
$0000-$07CF: Video RAM 


$0800-SOFCF: Attribute RAM 
$2000-$3FFF: CHARRAM(character generator) 
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5.4.2 The character attribute 


The attribute of a character is composed of several criteria: The first is 
the RGB signal, whether red, green, or blue are active (all bits here are set 
for white, for instance), then the intensity signal (which determines the two 
levels of brightness of the character ). Then there is a bit which determines 
if a character should flash on and off, a bit to underline a character, a bit for 
reverse, and a bit for the alternate character set. You can see that the reverse 
characters really need not be defined at all, since a corresponding bit is 
provided in the attribute RAM. But to make things simpler, the reverse 
character set was simply copied along with the rest of the characters. 


But now we come back to the actual attribute RAM: The eight bits of an 
attribute byte are arranged as follows: 


ALT RVS UL FLASH R G B I 
7 6 5 4 3 Z 1 0 


ALT stands for ALTernate. If the second character set is selected (the 
one obtained with <SHIFT><Commodore> on the keyboard), the ALT bit 
in the attribute RAM is set. 


RVS stands for ReVerSe and means that the character will be displayed 
in reverse. Unfortunately, no direct use is made of this bit. Professional 
software programmers can make better use of the reverse characters. 


UL stands for UnderLine. If this bit is set, the corresponding character 
is underlined in the raster line defined in register 29; normally this is line 7. 


FLASH is self-explanatory. If this bit is set, the character defined by 
the given attribute byte will flash on and off. Color and any underlining is 
retained. 

R stands for Red, G for Green, and B for Blue. The color signal 


consists of the set and cleared bits. There is also an intensity signal I that is 
used to set the brightness; a set bit means bright. 
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Here is a table of the 15 possible color and intensity combinations: 


R G B I Color 
Black 

Dark grey 
Blue 

Light blue 
Green 
“Light green 
Cyan 

Light Cyan 
Red 

Light red 
Purple 
Light Purple 
Brown 
Yellow 
Light grey 
White 


PRRERPPPFPRPOOGCOOCO0CO 
PREP RPOODOOORPRFPRPRFOOOO 
PRPOOPFPFOORPRFPOOFRPOO 
PORPORFPOCOCOORPOFOFRFORO 


5.5 Using the VDC Registers 


As already mentioned, the 37 VDC registers account for a very flexible 
80-column controller. We want to take a closer look at and demonstrate their 
use with some examples. One of the more useful is the ability to display 30 
lines on the screen instead of 25 a second is the ability to use the 
high-resolution graphics with a resolution of 640x200 points. We will 
concentrate on these two examples. 


But first we present a program which is very useful for exploring the 
world of the VDC registers. When testing, you may often find that your 
screen displays nothing but garbage. This means you have confused the 
controller so much that it can no longer display a meaningful picture. The 
best thing to do is to press the <RUN/STOP><RESTORE> keys. 


On international models of the C-128 that include a foreign character 
set, the character generator may be overwritten. The best thing to do then is 


to press the <ASCII/DIN> key to copy the character generator back to the 
normal mode. 
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This program shows you the current register contents on the screen and 
then lets you write to any of the registers. After you have entered the values, 
you can observe the results directly on the screen (if in fact there are 
results). The current register contents are then displayed again. 


10 REM *** TESTING THE VDC REGISTERS *** 


30 A=DEC ("D600") : D=A+1 

40 PRINT CHR$ (147) "CURRENT REGISTER CONTENTS -" 
50 FOR I=0 TO 37 

60  POKE A,I: C=PEEK(D) 

70 PRINT "#";1I;RIGHTS (HEX$(C),2), 


80 NEXT I 
90 PRINT: PRINT 
100 INPUT "REGISTER, VALUE --- ";RE,VA 


110 POKE A,RE: POKE D,VA: GOTO 40 
5.5.1 Smooth scrolling 


As with the VIC chip, you can move the screen vertically or 
horizontally in raster line increments on the VDC. VDC register 24 (bits 
0-4) and 25 (bits 0-3) are used for this purpose. Contrary to the way 
smooth scrolling is done on the VIC, you don't lose any columns or lines 
on the VDC. The VDC is not well-suited for games--it has very good 
resolution, but its complicated addressing is far too slow--but you can use 
smooth scrolling to create many useful effects. Here is a short 
demonstration program which shows the operation of smooth scrolling on 
the 80-column screen. 


10 REM *** DEMO PROGRAM FOR SMOOTH SCROLLING *** 

20 A=DEC ("D600") : D=DEC ("D601") 

30 VE=24: HO=25 

40 PRINT CHRS (147) CHRS(27);"M"; : REM SCREEN CLR 
AND SCROLL OFF 

50 AS="Hello C-128 fans!" 

60 FOR I=0 TO 24 

70 PRINT AS 

80 NEXT 


100 FOR I0=0 TO 6 
110 POKE A,VE: V=PEEK(D) AND 240 OR I0 
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120 POKE A,VE: POKE D,V 

130 FOR I1=1 TO 20: NEXT 

140 POKE A,HO: H=PEEK(D) AND 240 OR I0 
150 POKE A,HO: POKE D,H 

160 FOR I1=1 TO 20: NEXT 

170 NEXT 

180 GOTO 100 


If this goes too fast for you or not fast enough, change the delay loops 
in lines 130 and 160 correspondingly. 


If bit 3 is cleared, 25 lines are displayed and the following (or 
preceding) RAM is scrolled on the screen. If you set bit 3, only 22 lines are 
displayed and you can scroll the last three lines of the screen by means of 
smooth scrolling. 


5.5.2 Block copying 


If the controller is so hard to access, why is screen scrolling so fast? 
The solution is simple: The VDC is intelligent enough to move entire blocks 
in its memory. If this had to be done via the relative addressing, it would 
take a considerably longer time. 


If you want the VDC to move an area of memory, you must tell it this 
via the COPY bit (bit 7 in REG 24). If this bit is set, the VDC copies instead 
of filling. The starting address of the block to be copied is defined in 
registers 32 and 33; the destination address of the copying procedure must 
be defined in the update register (REG 18 and 19); the copy process begins 
when you write to the word count register. This also specifies the number 
of characters to be copied. 


NOTE: The word count register specifies the exact number of characters 
to be copied. For example, if you want to copy the first text line on the 
screen to the line below and preserve the attributes, you must first copy the 
text line and then the attributes. We will do an upward-scroll in our example 
a BASIC it goes quite slowly, but in machine language it is fast 
enough. 
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10 REM *** DEMO PROGRAM FOR BLOCK COPYING *** 

20 A=DEC ("D600"): D=DEC ("D601") 

30 POKE A,24: C=PEEK(D):REM *** CONTENTS OF REG 24 

40 POKE A,24: POKE D,C OR 128:REM *** SET COPY BIT 

50 FOR Z=24 TO O STEP -1 

60 AQ=Z*80: AZ=AQ+80: REM *** SOURCE AND DEST 

70 POKE A,18: POKE D,AZ/256: POKE A,19: POKE D, 
AZ AND 255 

80 POKE A,32: POKE D,AQ/256: POKE A,33: POKE D, 
AQ AND 255 , 

90 POKE A,30: POKE D,79: REM *** COPY TEXT 

100 AQ=2048+AQ: AZ=2048+AZ:REM *** ATTRIBUTE ADDR 

110 POKE A,18: POKE D,AZ/256: POKE A,19: POKE D, 
AZ AND 255 

120 POKE A,32: POKE D,AQ/256: POKE A,33: POKE D, 
AQ AND 255 

130 POKE A,30: POKE D,79: REM *** COPY ATTRIBUTE 

140 NEXT 

150 PRINT CHR$ (19) ;CHRS$(27)"D"; :REM CLEAR 1ST LINE 

160 POKE A,24: POKE D,C: REM *** CLEAR COPY BIT 


This routine does nothing more than the ESC sequence 
CHR$(27);"W", but it shows the operation of block copying. 


5.5.3 Foreground and background color 


You can define the background color of the 80-column screen in 
register 26 (bits 0-3). The foreground color has effect in the graphic mode 
and--provided the ATR bit in register 25 is not set--also in the text mode. 
The definition of the register: 


POKE DEC("D600") ,26 
POKE DEC("D601") ,<foreground>*16 + <background> 
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5.5.4 The cursor mode 


You can also determine the appearance of the cursor yourself. You can 
turn it off completely, make it blink fast or slow, and define it as a block or 
underline cursor. You can make these definitions using ESC sequences, but 
there are situations where this is not possible--such as in machine language. 
The cursor mode is set in register 10. Further, register 10 indicates in which 
raster line the block cursor is to begin. With the starting and ending line of 
the block cursor you can turn the cursor into a broad stripe in the middle, 
etc. (The underline cursor is defined in the same manner). Here are the four 
possible bit combinations of the cursor mode: 


00 - non-blinking cursor 

01 - cursor off 

10 - slow cursor (cursor flashes at 1/16 SRF) 
11 - fast cursor (cursor flashes at 1/32 SRF) 


SRF = Screen Refresh Frequency 


As already mentioned, the VDC takes over all functions of displaying 
the character under the cursor and does not burden the CPU with it. 


For a block cursor, the start line is line 0; the end line, defined in 
register 11, is line 7. In order to define a underline cursor, one need only 
change the start line to 7. 


To demonstrate the effects, simply try out the following: 


10 REM *** DEMO FOR CURSOR *** 

20 A=DEC ("D600"): D=DEC ("D601") 

30 FOR X = 1 to 7: REM LINE 1 TO 7 

40 :POKE A,10: POKE D,X: REM *** NON-BLINKING-START 
50 POKE A,11: POKE D,7: REM END LINE=7 

60 FOR I = 1 TO 100 : NEXT I 

70 NEXT X 


The cursor address is defined in registers 14 and 15; the cursor is then 


displayed at this location where it blinks if so instructed and negates the 
character found underneath it. These two registers have no other function. 
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5.5.5 The character length and width 


The matrix of the characters found in VDC RAM is 8x8 points; this 
means that the characters displayed on the screen are 8 points wide and 8 
lines tall. This can be changed. The height and width of the characters can 
be set in registers 22 and 23. The following BASIC program demonstrates 
this: 


10 REM *** DEMO PROGRAM FOR CHARACTER MATRIX *** 
20 : 

30 A=DEC ("D600"): D=A+1 

40 FOR I0=0 TO 8: POKE A,22: POKE D,112+I0 

50 FOR I1=0 TO 8: POKE A,23: POKE D,Il 

60 FOR I2=1 TO 30: NEXT 12,11 

70 FOR I2=1 TO 30: NEXT I2 

80 NEXT I0 

90 GOTO 40 


You must always add 112 to register 22 because the upper nibble must 
always be $7. 


5.5.6 More than 25 lines on the screen 


Yes, you read it right! It is possible to display 25 lines with a total of 
2000 characters on the screen, but you can even display 28 lines with 2240 
characters and more. This is no trick of the imagination; every programmer 
who wants to write a word processor or database for the C-128, for 
example, will be pleased at this capability. 


The technique we will present can manage 25 lines in BASIC. This 
means that the other 3 lines remain when scrolling and clearing the screen 
and are therefore well-suited for status lines. These three lines (including 
attribute) can be changed with an appropriate machine language program. 
But first to the theory: 


In register 6 of the video controller, you can specify how many lines are 
to appear on the screen. The default value here is 25. Let's change this value 
to 10: | 
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10 A=DEC("D600") : D=A+1 
20 POKE A,6: POKE D,10 


You see that the controller now displays only 10 lines on the screen and 
the remaining lines are simply "swallowed up." Just as we can make the 
screen smaller, we also have the ability to increase the number of lines. We 
do this by simply correcting line 20: 


20 POKE A,6: POKE D,28 


And now we have 28 lines on the screen. You also see some lines that 
will usually flash in various colors. We can now (provided the monitor is 
good enough) see all 28 lines on the screen--even if the last three lines don't 
contain any useful information. 


A small note: On a very well-adjusted IBM color monitor we have been 
able to display up to 30 lines. It wouldn't make any sense to use this 
though, since most monitors would not be able to display it. We have been 
able to display 2 or 3 additional lines on every monitor. So we can say in 
general that at least two additional lines are possible, which you can the 
use for status lines, etc. 

We already know that the video RAM lies at address $0000 and the 
attribute RAM at address $0800. We must change this since we have 
displayed 2240 characters; the end of the video RAM then lies at address 
$0960 and part of the attribute RAM is overwritten (and vice versa). There 
is enough space between the attribute RAM and the character generator. 
Address $0A00 is then available for the start address of the attribute RAM. 


But when we want to write to the 80-column screen with BASIC, we 
have a small problem: The interpreter gets the base address of the attribute 
RAM from address $0A2F in the zero page. This isn't so bad--we just 
inform the BASIC interpreter of the new base address. This is correct--but 
if we take a closer look at the kernal, we see that the base address is not 
added but logically ORed. Bits 0 and 1 are affected by this; these two bits 
may not be relevant; that is, they may not be set. This is why it is advisable 
to define address $1000 as the start address of the video RAM. We do this 
with the two instructions: . 


POKE DEC ("OA2F") ,16 
POKE DEC("D600"),20: POKE DEC("D601") ,16 
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When this is done, everything works as it should. We'll use these ideas 
in our next program: 


10 REM *** DEMO PROGRAM FOR 28-LINE SCREEN ** 

20 : 

30 A=DEC ("D600") : D=DEC ("D601") 

40 POKE A,20: POKE D,16:REM *** VDC RECEIVES NEW 
BASE ADDRESS 

50 POKE DEC("0A2F"),16: REM *** KERNAL RECEIVES NEW 
BASE ADDRESS 

60 POKE A,6: POKE D,28: REM *** 28 LINES 

80 PRINT CHRS (147) 


When you start this program, 28 lines appear on the screen--though the 
last three lines still have no meaningful content. Unfortunately, we cannot 
write to these lines with the PRINT statement. The operating system is not 
prepared for such things. It becomes clear that we must POKE characters 
(strings) into memory. This is done by a small machine language routine so 
that the characters to be printed can be put into a string. 


This machine language routine is passed the address of the string to be 
printed. The address of a variable can be obtained with the POINTER(var) 
command. Before this, the low and high bytes of the screen address at 
which the string is to be printed are stored in memory locations $FA (250) 
and $FB (251). The current attribute is used as the color or attribute which 
you may change. You cannot integrate any control characters in the strings. 
These are accepted, but result in a gap in the screen. It is possible to allow 
for execution of control sequences, but we have not included this feature for 
space reasons. The routine is intended to output strings in our new window 
without requiring a lot of effort on the part of the programmer. The 
following commands are necessary in order to display a string on the first 
line of our new window: 


TS="This is a test string!" 
POKE 250, (2000 AND 255) 

POKE 251, (2000/256) 

A=POINTER (TS) 

SYS DEC("D27"),A AND 255,A/256 


First the string variable is defined which contains the string to be 
printed. Then we POKE the start address in $FA and $FB, low byte first. 
We then indicate the address at which the string T$ is stored in bank 1. This 
address is then, divided into low and high bytes, passed to the output 
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routine at address $0D27. The routine then gets each character and outputs 
it. That's it. Here is the machine language program: 


0ODO00 
00D03 
0O0D06 
00D08 
0ODOB 
OODOC 
OODOE 
00D10 
00D13 
00D14 
00D16 
00D19 
00D1B 
00D1D 
00D20 
00D22 
00D24 
00D27 
00D29 
00D2B 
00D2D 
O0D2F 
00D31 
00D34 
00D36 
00D38 
OOD3A 
00D3C 
OOD3F 
00D40 
00D41 
00D43 
00D45 
00D48 
OOD4A 
00D4B 
00D4D 
OOD4F 
00D51 
00D53 


D6 
D6 


D6 


OD 


OD 


OD 


OD 


FF 


FF 


FF 


STX 
BIT 
BPL 
STA 
RTS 


$D600 
$D600 
$O0D03 
$D601 


#512 
#$00 
$0D00 


#$00 
SODO0O0 
#S1F 
#$00 
SODO00 
#$12 
#$00 
SODO0O 
SFC 
SFD 
#500 
#$01 
#SFC 
SFF74 
SFE 
#$01 
#$01 


#SEC 


SFF74 


#$01 
#SFC 
SFF74 
SFD 


SFC 
SFC 
$0D53 
SFD 
SFC 


;ACC. OF THE REGISTER 
;TEST STATUS 

;NO YET READY 

;STORE THE VALUES 

;END THE ROUTINE 
;UPDATE REGISTER HI 
;LOAD THE HI VALUE 

;SET THE HI ADDRESS 
;UPDATE ADDRESS LO 
;LOAD THE LO-BYTE 

;AND THE ACCUMULATOR 
;DATA REGISTER OF VDC 
;LOAD THE POKE VALUE 
;SET THE VALUES 

;DUMMY VALUE 

;UPDATE ADDRESS 

;SET THE VALUES 

;MARK LO-BYTE OF STRING 
;MARK HI-BYTE OF STRING 
;OFFSET - STRING LENGTH 
;BANK 1 FOR VARIABLES 
;SFC WITH THE ADDRESS 
;AND FAR FETCH 

;MARK LENGTH 

;OFFSET LOW-BYTE ADDRESS 
;BANK 1 FOR VARIABLES 
;SFC WITH THE ADDRESS 
;FAR FETCH 
;LO-BYTE OF STACK 
;POINTER OF HI-BYTE 

; ADDRESS 

;FOR VARIABLE 

;FAR FETCH 

;MARK THE HI-BYTE 

;GET LO-BYTE 


“ ;STORE THE LO-BYTE 


;GET LO-BYTE 

*;WHEN NOT NULL; DECREMENT 
:THE LO-BYTE, ELSE DEC 
ALSO THE HI-BYTE 
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0OD55 A5 FA LDA SFA ;ALSO THE SOURCE ADDRESS 
00D57 DO 02 BNE SOD5B ;DECREMENT THE LO-BYTE 
00D59 C6 FB DEC SFB ;AND DEC 

OOD5B C6 FA DEC SFA ;ALSO HI-BYTE 

OOD5D AS FA LDA SFA ;GET LO-BYTE 

OOD5F 85 EO STA SEO ;LO-BYTE LINE ADDRESS 
0OD61 A5 FB LDA SFB ;GET HI-BYTE 

00D63 85 El STA SE1 ;HI-BYTE LINE ADDRESS 
OOD65 A2 01 LDX #$01 ;BANK 1 FOR VARIABLES 
OOD67 A4 FE LDY SFE ;POSITION IN STRING 


OOD69 AY FC LDA #$FC 7; ADDRESS IN ZERO PAGE 
OOD6B 20 74 FF JSR SFF74 ;FAR FETCH 


OOD6E A4 FE LDY SFE ;GET POSITION IN STRING 
OOD70 84 EC STY SEC ; ALSO CURSOR COLUMN 
00D72 20 0C CO JSR $COOC ;AND CHARACTER OUTPUT 
00D75 C6 FE DEC SFE ;DEC THE POINTER 

O0OD77 DO E4 BNE S$OD5D ;IF NOT END OF STRING 
00D79 60 RTS *;END ROUTINE 


At first glance the routine may appear rather long, but it really isn't. 
Remember that this routine and a few short BASIC lines give you three 
additional lines to use. Furthermore, there is another short routine at the 
start of this one that writes a character to a location in the VDC memory. 
The BASIC loader for this routine is found after the example program. Here 
is the example program, which allows displays 28 lines using both of the 
new routines. 


10 REM *** DEMO PROGRAM FOR 28 LINE SCREEN *** 


30 A=DEC ("D600"): D=DEC ("D601") 

40 POKE A,20: POKE D,16: REM *** VDC GETS NEW BASE 

50 POKE DEC("OA2F"),16: REM *** KERNAL GETS NEW 
BASE ADDRESS 

60 POKE A,7: POKE D,28: REM *** 28 LINES 

70 POKE A,6: POKE D,33: REM *** NEW SYNC 


90 PRINT CHRS (147); 

100 TS+" ":; REM 20 SPACES 
110 FOR X=0 TO 79 STEP 20: FOR Y=0 TO 2 

120 GOSUB 1000: NEXT: NEXT 

130 INPUT "Enter your name: ";TS 

140 FOR Y=0 TO 2: X=2*Y: GOSUB 1000: NEXT 
150 END 
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1000 REM *** OUTPUT TS AT X,Y COORDINATE; Y=0 MEANS 


101 
102 
103 
104 
105 
106 
107 


1ST LINE *** 
0 AZ=2000+Y*80+X: REM DESTINATION ADDRESS 
0 POKE 250,AZ AND 255: REM LOW BYTE 
0 POKE 251,AZ/256: REM HIGH BYTE 
0 T%=POINTER(TS$): REM ADDRESS OF THE STRING 
0 SYS DEC("D27"),T% AND 255,T%/256: REM PASS 
0 RETURN 
0 


This program first enables the three additional three lines (lines 30-70). 
Then the window is cleared and the name you entered is printed on each 


line. 


If you don't want to enter the machine language program with the 
assembler, you can use the following BASIC loader and then save the 
machine language program on disk as a BINary file. 


REM BASIC LOADER FOR PRINT STRING 


FOR I= DEC("D00") TO DEC("D79") 
READ AS 
POKE I, DEC(AS) 
S=S+DEC (AS) 
NEXT 
IF S<>16613 THEN PRINT"ERROR IN DATA STATEMENTS" 
INPUT "SAVE PROGRAM ON DISKETTE Y/N";AS 
IF AS<>"Y" THEN END 
INPUT "FILE NAME";FS 
BSAVE""+ FS +"",B1,P3328 TO P3449 :END 


DATA 8E,00,D6,2C,00,D6,10,FB, 8D, 01,D6, 60,A2,12,A9, 00 
DATA 20,00, 0D,E8,A9,00,20,00, 0D,A2,1F,A9,00,20,00,0D 
DATA A2,12,A9,00,4C,00, 0D, 85, FC, 86,FD,A0,00,A2,01,A9 
DATA FC,20,74,FF,85,FE,A0,01,A2,01,A9,FC,20,74,FF, 48 
DATA C8,A2,01,A9,FC,20,74,FF,85,FD, 68, 85,FC,A5,FC,D0 
DATA 02,C6,FD,C6,FC,A5,FA,D0,02,C6,FB,C6,FA,A5,FA, 85 
DATA E0,A5,FB,85,E1,A2,01,A4,FE,A9,FC,20,74,FF,A4,FE 
DATA 84,EC,20,0C,C0,C6,FE,D0,E4, 60 
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5.5.7 Hi-res graphics 


We probably got you excited when we mentioned that a graphics 
display is also possible on the 80-column screen. The resolution of these 
graphics is 640x200 points, exactly twice as great as the hi-res mode of the 
VIC chip. There is no multi-color mode. The brillance of the graphics is 
quite impressive (if the monitor can display it properly). Here you don't 
have to set two points next to each other in order to see one point, as on the 
VIC. There is "only" one color available, but this is completely sufficient 
for most graphics (such as mathematical curves). 


This graphic mode is not supported by the BASIC 7.0 graphics 
commands. We again offer you a small machine language package that can 
perform the following elementary functions: 


* turn graphic mode on and off 
* clear the graphic page 
* set and clear points 


We could have integrated more features into the machine language 
routine package, but we don't want to turn the C-128 Internals into a 
collection of programs! 


The how of the VDC graphic mode is also interesting. The bit-map 
mode is enabled by setting bit 7 of register 25. There are then 16Kbytes of 
the VDC memory available for graphics on the screen. If you clear the 
graphics, the character generator is also cleared. 


On the international models of the C-128 if you exit with 
<RUN/STOP> <RESTORE>, you must also press <ASCII/DIN> or you 
will see nothing on the screen because the character set has been erased. The 
character set can also be copied under program control when switching from 
the graphic mode to the text mode. You can also press <ASCII/DIN> while 
the graphic mode is enabled--you will be surprised. 


The graphic mode is enabled by setting bit 7. The attribute RAM 
becomes nonfunctional as it is required for graphic display, we must also 
clear the ATR bit in register 25. We can combine these two actions by 
loading register 25 with 128. This is all that is necessary to enable the 
graphic mode. We can leave the attribute and video RAM addresses alone 
since they play no role. 
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The graphic memory is defined at address $0000. The logic for setting 
and clearing points is similar to that described for the VIC chip; here setting 
and clearing are accomplished through logical OR and AND. One byte also 
defined eight points (pixels) for the VDC. The first point, which has the 
coordinates 0/0, is located in the upper left-hand corner, and thereby at 
address $0000. The rest of the procedure is simpler than for the VIC chip. 
The graphics are defined line by line. The memory layout is clarified in the 
following figure: 


$0000 $0001 $0002 $0003 ..... $027F (639 decimal) 
$0280 $0281 $0282 $0283 ..... SO4FF (1279 decimal) 


On the VDC the memory is not divided into matrices of eight, so that 
addressing a point is much easier. The following formula is needed to 
address a given point (X/Y): 


AD = INT(X/8) + Y*802 


The point in this byte is addressed in the same manner as with the VIC, 
by the following formula: 


2(7-(X AND 7)) 


Since this addressing is so simple, the machine language program is 
correspondingly shorter. First the assembly language listing, followed by 
the BASIC loader: 


0O0COO 4C CD OC JMP S$OCCD ;SWITCH ON THE GRAPHICS 
00C0O3 4C DO OC JMP SOCDO ;TURN OFF GRAPHICS 
00CO6 4C D3 OC JMP $0CD3 ;BACK TO TEXT MODE 
00CO9 4C EO OC JMP SOCEO ;SET A POINT 

O0OCOC 4C DD OC JMP SOCDD ;ERASE A POINT 
OOCOF 8E 00 D6 STX SD600 ;STORE IN REGISTER 
00C12 2C 00 D6 BIT $D600 ;TEST STATUS 

00C15 10 FB BPL $0C12 ;NOT FINISHED YET 
00C17 8D 01 D6 STA $D601 ;STORE VALUE 

OOC1A 60 RTS ;RETURN TO PROGRAM 
00C1B 8E 00 D6 STX $D600 ;LOAD REGISTER 
OOC1E 2C 00 D6 BIT $D600 ;TEST STATUS 

00C21 10 FB BPL $OC1E ;NOT FINISHED YET 
00C23 AD 01 D6 LDA $D601 ;GET REGISTER VALUE 
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00C26 
00C27 
00C29 
00C2B 
00C2E 
00C30 
00C32 
00C33 
00C36 
00C38 
OOC3A 
00C3D 
00C3F 
00C42 
00C43 
00C45 
00C46 
00C47 
00C49 
00C4B 
00C4D 
O0C4F 
00c51 
00C53 
00C55 
00C57 
00C59 
0O0C5B 
00C5D 
OOC5F 
00c61 
00C63 
00C65 
00C67 
00C69 
00C6B 
0OCé6D 
OOC6F 
00C71 
00C73 
00C74 
00C76 
00C78 


oc 


oc 


0c 


oc 


;RETURN TO PROGRAM 

#519 ;REGISTER 25 CHOSEN 

#$80 ;BIT 7 SET 

SOCOF ;REGISTER 25 SET 

#$40 ;$40 FOR OFF 

#512 :REGISTER 18 UPDATE HI 
;HI BYTE TO ACCU. 

SOCOF ;SET UPDATE HI 

#S1F ;REGISTER 31 DATA REG. 


v 
SOCOF ;DATA REGISTER WRITTEN 
#S1E ;WORDCOUNT REGISTER 
SOCOF ;WITH NO FILL 
;DECREMENT THE NUMBER 
$0C30 ;FOLLOW BLOCK OFF 
;RETURN TO OFF ROUTINE 
;RETURN CARRY # SET/OFF 


SFA ;LO-BYTE X-COORD. 

SFE ;TEMP. STORAGE 

SFB ;HI-BYTE WITH X OVER TWO 
SFA ;COPY CARRY LOW-BYTE 
SFB 7S<0. 

SFA 7S.0. 

SFB ;PUT TOGETHER INT (X/8) 
SFA ; 

#$00 ;HI-BYTE OF ADDRESS ON 
SFD ; NULL SET 

SFC ;Y-COORD. IN ACC. 

SFC ;Y TIMES 2 

SFD ;COPY CARRY 

SFC ;TIMES TWO OPTION 

SFD ;AMT * 4, PLUS 1*Y 

SFC ;OPTION Y*5 

SFC : LO-BYTE 

SOC6D ;NO CARRY 

SFD ;CARRY INTO HI-BYTE 
#$04 ;IS WORD WITH 4 TIMES 
SFC ;WITH 2 MULTIPLER THIS 
SFD ;OPTION ONE * 16 


;AND 16*5 FOR 80 OPTION 
SOC6F ;WITH 80 MULTIPLER 
SFA ; INT (X/8) 
SFC ;ADD TO Y*80 
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OOC7A 
OO0C7C 
OOC7E 
00C80 
00C82 
00C84 
00C87 
00C88 
OOC8A 
0O0C8D 
OOC8F 
00C92 
00C93 
00C95 
00C97 
00C98 
00C99 
OOC9A 
0O0C9C 
OOC9F 
OOCA1 
OOCA4 
OOCAS 
OOCA7 
OOCA9 
OOCAC 
OOCAD 
OOCAF 
OOCB2 
OOCB4 
OOCB5 
OOCB8 
OOCBA 
OOCBD 
00CC5 
0OCCD 
OOCDO 
00CD3 
OOCD5 
0O0CD7 
OOCDA 
OOCDD 
OOCDE 


oc 


oc 


0c 


oc 


Oc 


Oc 


0c 


0c 


oc 
20 
DF 
0c 
0c 


0c 
CE 


LDX 
PLA 
JSR 
LDX 
JMP 


SFC 
$0Cc80 
SFD 
#$12 
SFD 
SOCOF 


SFC 
SOCOF 
#S1F 
$0C1B 


SFE 
#$07 


SOCA1 


7;AND STORE 

7NO CARRY 

*#REM CARRY 

;REGISTER 18 UPDATE HI 
;HI-BYTE OF ADDRESS 
;SET 

;UPDATE LO 

;LO-BYTE OF ADDRESS 
;SET THE LO-BYTE 
;DATA REGISTER 

*;GET THE STORED VALUE 
; STACK 

;GET X-COORD. (LO) 

7X AND 7 

;POINTER NOT X 

;GET VALUE BACK 

;GET CARRY BACK 

*;SET POINT 


$0CC5,X;CLEAR POINT 


SOCA4 


; UNCONDITIONAL JUMP 


SOCBD,X;SET POINT 


#$12 
SFD 
SOCOF 


SFC 
SOCOF 
#S1F 


SOCOF 
#$12 
$0C1B 


; STACK 

;UPDATE HI 

;HI-BYTE OF LINE ADDRESS 
*;SET THE VALUE 
*;UPDATE LO 

#LO-BYTE OF ADDRESS 
*;SET THE LO-BYTE 
;DATA REGISTER 
;RECOVER STACK 

;SET NEW VALUE 
;UPDATE ADDRESS HI 
#AND POINT SET 


10 08 04 02 01; TABLE SETTING PTS 
EF F7 FB FD FE; TABLE CLEAR POINTS 


JSR 
JMP 
LDX 
LDA 
JSR 
JMP 
CLC 
BCC 


$0C27 
$OC2E 
#$19 
#$40 
SOCOF 
SCEOC 


SOCE1 


;SET THE GRAPHIC MODE 
*TURN OFF GRAPHICS 
#REGISTER 25 SELECT 
‘ATR-BIT SET,TXT-BIT OFF 
*;SET THE TEXT MODE 

COPY CHAR ROM 

#CLR CARRY FOR POINT OFF 
+UNCONDITIONAL JUMP 
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OOCEO 38 SEC *#SET CARRY FOR POINT SET 
OOCE1 85 FA STA SFA ;STORE X-LOW 

OOCE3 86 FB STX SFB *STORE X-HI 

OOCE5 84 FC STY SFC ;STORE Y-COORD. 


OOCE7 4C 46 OC JMP S0C46 ;POINT SET/CLEAR 


As you see, there are five entry points available. The graphic page is 
automatically cleared when the graphic mode is enabled. If you only want to 
enable ie graphic page, you can do this with the following BASIC 
commands: 


POKE DEC("D600"),25: POKE DEC("D601"), 128 


The following subroutines are reached with the five entry point 
addresses: 


$0COO0 —_— Enable and clear graphic page 
$0C03 Clear the graphics 

$0C06 _—Back to text mode 

$0C09 = Seta point 

$0COC Clear point 


The coordinates for setting or clearing a point can be passed directly 
with the SYS command. The syntax looks like this: 


SYS <ENTRY POINT>,<X LOW>,<X HIGH>,<Y> 
For example, the command 
SYS DEC("0C09"),0,185,191 


is necessary to set the point with the coordinate (185,191). The general call 
looks like this: 


SYS DEC("0C09"),X AND 255,X/256,Y 


By the way, it pays to append the % sign to the variable names 
whenever possible because then the variable is treated as an integer 
variable--leading to great increases in speed. Unfortunately, this doesn't 
work for loop variables. The constants 255 and 256 should be defined as 
integer variables--this also increases the speed because the values do not 
have to be recalculated by the interpreter each time. We have made use of 
this in our example program. 
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Here is the BASIC loader for the graphics package: 
10 REM *** BASIC LOADER FOR 80 COLUMN GRAPHICS*** 


30 FOR I= DEC("0C00") TO DEC ("0CE9") 

40 : READ X$:X=DEC(X$) 

50 : POKE I,X 

60 : S=S+X 

70 NEXT 

80 IF S<> 25905 THEN PRINT"***** ERROR IN DATA 
STATEMENTS ****x" 

90 INPUT"SAVE PROGRAM TO DISKETTE";A$ 

100 IF AS<>"Y" THEN END 

110 PRINT: INPUT "FILE NAME";FS$ 

120 BSAVE""+FS+"",B0,P3072 TO P3306 

130 END 

140 

1000 DATA 4C,CD, 0C, 4C,D0,0C, 4C,D3, 0C, 4C, E0, 0C, 4C, DD, 0C, 8E 

1010 DATA 00,D6,2C,00,D6,10,FB, 8D, 01,D6, 60, 8E, 00,D6,2C, 00 

1020 DATA D6,10,FB,AD,01,D6, 60,A2,19,A9, 80,20, OF, 0C,A0, 40 

1030 DATA A2,12,98,20,0F,0C,A2,1F,A9,00,20, OF, 0C,A2,1E,20 

1040 DATA OF, 0C,88,10,EB, 60, 08,A5,FA, 85,FE, 46, FB, 66,FA, 46 

1050 DATA FB, 66,FA,46,FB, 66,FA,A9,00,85,FD,A5,FC, 06,FC,26 

1060 DATA FD,06,FC,26,FD,65,FC,85,FC,90,02,E6,FD,A2,04,06 

1070 DATA FC,26,FD,CA,D0,F9,A5,FA, 65,FC,85,FC, 90,02,E6,FD 

1080 DATA A2,12,A5,FD,20, 0F, 0C,E8,A5,FC, 20, 0F, 0C,A2,1F,20 

1090 DATA 1B, 0C, 48,A5,FE,29,07,AA, 68,28,B0,05,3D,C5, 0C, 90 

1100 DATA 03,1D,BD,0C, 48,A2,12,A5,FD,20, OF, 0C,E8,A5,FC,20 

1110 DATA OF,0C,A2,1F, 68,20, 0F,0C,A2,12,4C, 1B, 0C, 80, 40,20 

1120 DATA 10,08,04,02,01,7F,BF,DF,EF,F7,FB,FD,FE,20,27,0C 

1130 DATA 4c, 2E,0C,A2,19,A9, 40,20, OF, 0C, 4C, 0C, CE, 18,90,01 

1140 DATA 38,85,FA,86,FB, 84,FC, 4C,46,0C 


This routine is located in the RS-232 input buffer and can therefore be 
called from any bank configuration. This memory area was chosen because 
it is seldom used. If you do need it, you must move the routine to a new 
area and make the appropriate changes to the program. 


In conclusion, we do not want to leave you with the graphics package 
alone, we we wrote a short example program in BASIC which draws a 
damped oscillation on the 80-column screen. We find that the execution 
speed is quite satisfactory. You can also learn more about the operation of 
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the graphic routines from the example program. Naturally you can change 
the function in line 30 to see what "your" function looks like. 


220 


REM ** EXAMPLE PROGRAM FOR GRAPHICS PACKAGE ** 


DEFFNR (X) =40*SIN (X) *EXP (-0.5*X) +100 
FAST: TRAP 1000: REM IN CASE OF ERROR IN FNR(X) 
F%=256: FF%=255: SE=DEC("C09") : RE=DEC ("COC") 
SYS DEC("CO00") : REM GRAPHICS ON 
Y%=100: REM DRAW X-COORDINATE 
FOR X=0 TO 639 STEP 3: REM DOTTED LINE 
SYS SE,X AND FF%, X/F%, Y% 
NEXT 
X%=320: REM DRAW Y-COORDINATE 
FOR Y=0 TO 199 STEP 2 : REM DOTTED LINE 
SYS SE,X% AND FF%, X%/F%, Y 
NEXT 
C=-32 
FOR X=0 TO 639 
FU%=FNR(C): IF FU%<0 OR FU%>199 THEN 190 
: SYS SE,X AND FF%, X/F%, FU% 
C=C+.1 
NEXT 
GETKEY AS: REM *** DONE, WAIT FOR KEY, BACK TO 
TEXT 
SYS DEC("C06"): PRINT CHRS$(147): SLOW 


1000 PRINT ERRS (ER) ;EL 

There are an unlimited number of applications for graphics. We will let 
your imagination run free here. We wish you much success with the use of 
the 80 column graphics routines. 
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Chapter 6: The Memory Management Unit 


6.1 Introduction to the MMU 


The Memory Management Unit (MMU) was designed to handle the 
complex addressing tasks in the C-128. As you may know, the 8502 and 
the Z-80 can address only 64K. You know from BASIC that the two RAM 
banks can only be addressed separately. Each 64K of RAM overlays the 
ROM and the I/O components. For example, there are two different RAMs 
at address $D600, the I/O provided by the 80-column controller and the 
ROMs. If a cartridges is inserted into the expansion slot, the MMU must 
differentiate this too. 


The MMU is also used in the 64 mode and is completely compatible 
with the C-64. In addition it can handle the tasks that come up in the C-128 
and CP/M modes. It also performs the computer mode selection and selects 
between the 8502 and the Z-80. Here is a list of its features: 


* Manages the translated address bus (TA8-TA15) 

* Selects the computer mode (C-64, C-128, CP/M) 

* Selects the processor (Z-80, 8502) 

* Prepares and manages the CAS selection lines for bank-switching 
the RAM. 


The MMU has a total of 11 registers that are found starting at address 
$D500. Since the I/O range is not always enabled, the memory 
configuration register and load registers A-D are copied into the memory 
range $FFO0O to $FFO5. This way there are four set configurations found in 
the preconfiguration registers A-D. They can be selected simply by loading 
a load register into the configuration register, without having to enable the 
I/O range. This is a very useful feature and saves both time and 
programming effort. But more about this later. 
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Here is a graphic representation of the available registers: 


ee 















LCRD 





$FFOO CR CONFIGURATION REGISTER 
(Copy at $D501) 
$D50A 


$D509 PiL Page 1 Pointer-Low 
$D508 Page 0 Pointer-High 
$D507 PO Page 0 Pointer-Low 


L 
$D506 RCR RAM Configuration Register 
$D505 MCR Mode Configuration Register 


Page 1 Pointer -High 











$D504 PCRD Preconfiguration Register D 
$D503 PCRC Preconfiguration Register C 
$D502 PCRB Preconfiguration Register B 


$D501 1 PCRA Preconfiguration Register A 


$D500 CR | CONFIGURATION REGISTER 
(Copy at $FF00) 
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6.2 The Configuration Register 


As already mentioned, there is a copy of some of the MMU registers at 
address $FFOO (independent of the enabled RAM bank). This is not quite 
correct. In reality there is a copy of one register at address $FFOO; this is 
the configuration register CR. If you read memory location $FFOO, you get 
the current contents of the configuration register. If you write to address 
$FFOO, the contents of the configuration register at $D500 in the MMU 
change at the same time. The registers $FFO1 to $FF04 are just "half" 
copies of the MMU registers. Half because when reading them they return 
the current contents of the corresponding MMU preconfiguration register, 
but when writing to these registers, the contents not of the corresponding 
MMU registers, but the configuration register is changed. 


This is not a disadvantage--quite the opposite. If you write to an LCRx 
register, the CR will be loaded with the corresponding PCR. An example: 
We write to LCRA at address $FFO1. The contents of this register doesn't 
change, but the contents of the CR does. The PCRA ($D501) is copied to 
the CR. This is a very practical feature: We can change the CR register 
without having to bother with the I/O range. We can select between four 
configurations stored in the MMU. This means the programmer need only 
say, "Select configuration #1," and the MMU switches this configuration 
on. In machine language this selection looks simply like this: 


STA SFFO1 ;Acc. contents irrelevant--enable 
configuration 1 


At the start of a program one can pre-program the most-used configurations 
into the four PCRs. But "manual" reconfiguration isn't much harder. Load 
the accumulator with the bit pattern necessary and store this at address 
$FFOO. Example for bank 15: 


LDA #00 ;corresponds to BANK 15 command 
STA SFFOO ;select configuration 


All eight bits of the configuration register are relevant: 


Bits 7,6 Select RAM bank. The bit combinations 00 and 01 are 
possible in the 128K version. But since memory expansion 
up to 256K is allowed, the possibilities 10 and 11 exist for 
this expansion. If these RAM banks are not present, 10 
means the same as 00 and 11 the same as 01. 
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Bits 5,4 Select what will be accessed when the memory range $C000 
to $FFFF is addressed: 
00 - System ROM (kernal) 
01 - Internal function ROM 
10 - External function ROM 
11 - RAM (bank, see bits 6 and 7) 


Bits 2,3 Select what will be accessed when the memory range $8000 
to $BFFF is addressed: 
00 - System ROM (BASIC) 
01 - Internal function ROM 
10 - External function ROM 
11 - RAM (bank, see bits 6 and 7) | 


Bit 1 Select what will be accessed when the memory range $4000 
to $7FFF is addressed: 
0 - System ROM (BASIC) 
1 - RAM (bank, see bits 6 and 7) 


BitO Select what will be accessed when the memory range $D000 
to $DFFF is addressed: 
0 - System I/O 
1 - RAM/ROM, dependent on bits 4 and 5 


It should be noted that when ROM is enabled in the range $C000 to 
$SFFFF (bits 4 and 5) there is always a gap in the range $D000 to $DFFF. If 
the system I/O is enabled, the system I/O components occupy this range. If 
bit 0 is set, the character generator is found here. 


6.2.1 The preconfiguration registers 


The preconfiguration registers are found at addresses $D501 to $D504 
and copies of them are found at addresses $FFO1 to $FF04. They have no 
significance in the C-64 mode. Preconfiguration registers are registers in the 
MMU which can be pre-programmed with specific memory configurations. 
These pre-programmed configurations can be transported to the 
configuration register by means of the "Load Configuration Register" .The 
use of these registers was described in section 6.2. The bits are encoded in 
the same manner as for the configuration register. The encoding is also 
found in section 6.2. 
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6.3 The Mode Configuration Register 


The mode configuration register is found at address $D505. It sets the 
current computer mode, that is, which CPU is operational (8502 or Z-80) 
and whether the 64 or 128 mode is active. 


Bit 7 Indicates if the 40/80 column key was pressed at reset. 0=80 
column, 1=40 column mode. 


Bit 6 This bit indicates whether the 64 or 128 mode is active; 
0=128 mode. After power-up or RESET the 128 mode is 
always active. 


Bits 4,5 These two bi-directional bits indicates whether or not the 
cartridge lines GAME or EXROMIN are being used. If so, 
the 64 mode must be enabled and control passed to the 
cartridge. In the 128 mode these lines are not used. 


Bit 3 FSDIR control bit. This bit is used as the output bit for the 
fast serial data bus buffer as well as the input bit for the disk 
enable signal. 

Bits 1,2 These bits have no significance. 

BitO This bit selects the processor; 1=Z-80, 0=8502. 


If bit O of this register is written to, the contents are temporarily 
buffered until the current clock cycle is done. Otherwise, complications 
could occur when the processors are switched. 


By looking at bit 0 we can determine whether the Z-80 or the 8502 is 
operational. When writing to this register, the bit is stored until the clock 
pulse falls. If the bit is set, the Z-80 is active and the range $D000 to 
$DFFF is mirrored in the range $0000 to $0FFF. The BIOS ROM is also 
physically located at the range $0000 to $0FFF. The BIOS ROM can't be 
read (via software) when the 8502 is enabled. 


For example, if the Z-80 is enabled, the 8502 is stopped and the Z-80 
continues where it left off. This simply means that the PC (Program 
Counter) continues with the course of the program. The same is true when 
the 8502 is switched on: it picks up its work where it left off and this takes 
place immediately after the instruction to switch on the Z-80. 
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In the 64 mode the Z-80 enable line (defined by bit 0) is always zero so 
that the Z-80 mode cannot be enabled in the C-64 mode. Furthermore, there 
are no copies of the MMU registers in the addresses at $FFOO in the 64 
mode. 


6.4 The RAM Configuration Register 


The RAM configuration register is found at address $D506 of the 
MMU. It is used to define the common RAM areas. But why define 
common RAM areas? 


Quite simple: The interpreter, for example, stores all of the required 
system variables and pointers in the zero page (although there really isn't a 
zero page anymore). If the interpreter now switches to bank 1, for instance, 
in order to read or write variables, these system pointers would no longer be 
available since they are found in bank 0. It would be a lot of bother to have 
to make changes in both memory banks every time a zero-page location was 
changed. 


To avoid this, the Commodore engineers thought it would be very 
practical to be able to define a certain memory range so that it looked the 
same in all RAM banks. In reality, the zero page is stored in only one RAM 
bank, bank 0. If you then address this memory range in RAM bank 1 (or 
another bank), the MMU recognizes this and addresses the corresponding 
area in bank 0. 


These common memory ranges are called common areas. The MMU 
offers the programmer the option of defining whether or not he wants a 
common area, and if so, how large it should be and where it should be 
located. But first the register layout before we take a closer look at the 
individual bits: 


Bits 6,7 These two bits store the RAM bank for the VIC chip, where 
the text or a graphic page will be stored. Normally the video 
RAM is found in bank 0. 
00=RAM bank 0, 01=RAM bank 1, 10=RAM bank 2(0), 
11=RAM bank 3(1) 


Bits 4,5 These two bits are still unused in the present version. They 


are intended for expansion to 1Mbyte of RAM. Then 
selecting these would address a 256K block. 
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Bits 2,3 Bits 2 and 3 indicate if and where a common area is defined. 
00=no common area, independent of bits 0 and 1 
01=lower area is common 
10=upper area is common 
11=both upper and lower areas are common 


Bits 0,1 Here is defined how many Kbytes will be used as a common 
area. These two bits are valid only when bits 2 and 3 are not 
equal to 00. 
00=1 Kbyte common area 
01=4 Kbyte common area 
10=8 Kbyte common area 
11=16 Kbyte common area 


When a common area is defined, the minimum area possible is 1K. But 
is also possible to declare no area as common. To do this, set bits 2 and 3 to 
zero. If only one of bits 0 and 1 are set, bits 4 and 5 will have effect. 
Normally, only the lower area with 1Kbyte is defined as a common area. In 
the 64 mode, this register has no effect. 


If a 1Kbyte area is defined as a common area, the range $0000 to 
$03FF is identical in both RAM banks if the lower area is enabled. If both 
the upper and lower areas are enabled as the common area, the ranges 
$0000 to $03FF and $FCO0 to $FFFF are identical in both RAM banks. 
You can define up to 32K as a common area by defining both areas and 
16K as the common area. 


Bits 6 and 7 determine from which RAM bank the VIC chip should get 
its information regarding the video RAM. This offers us fantastic 
capabilities. It is very easy to manage two 40-column screens without 
having to move the address of the video RAM, which is more complicated 
than switching the RAM bank. In RAM bank 0 you can define screen 
number 1 at address $0400 and screen 2 at the same address in bank 1. You 
can then switch between the two by setting or clearing bit 6. 


LDA #00 ;system 1/0 

STA SFFOO ;enable 

LDA $D506 ;o0ld RCR value 

ORA #840 ;screen in RAM bank 1 
STA S$D506 ;enable 
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6.5 The Page Pointer 


There are two page pointers: one page pointer for the zero page, and a 
page pointer for page 1, in which the stack normally lies. 


$D507/$D508: Page pointer 0 
$D509/$D50A: Page pointer 1 


The low-order byte of these pointers represents the address bits 8 to 15. 
The high-order byte determines the RAM bank which will be used, 
representing address bits 16 to 19. Bits 7-4 are not used in the high-order 
byte. 


If the high-order byte of a page pointer is written, it is stored 
temporarily until the low-order byte of the pointer is also written. 


If the zero page or page 1 is moved to another address, the MMU adds 
the base address automatically to access the zero page or for stack actions. 


Higher bytes ($D508/$D50A) 


Bits 7-4 unused 

Bits 3-0 Address bits 16 to 19 for translated address (TA) 
In the present version, only bit 0 is of interest; the remaining bits 
1-3 are ignored. 


Lower byte ($D507/$D509) 


Bits 0-7 These bits represent the high-order byte of the page pointer, that 
is, address bits 8-15. For the zero-page pointer this byte is 
usually 0; for the page-1 pointer it is 1. 


The advantages are clear. You can have a separate stack for each 
subroutine as well as a separate system-variable area if you don't call the 
kernal routines. Moving the zero page has two advantages: Programs will 
be shorter and faster. 


Assembly language programmers are often searching for free memory 
locations in the zeropage. As an example, the LDA ($xx),Y instructions 
function only with zero-page addresses. Using the page pointers you can 
move zero page to a free memory area. 
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The ability to move page 1 is also practical. This makes it possible to 
give each subroutine its own stack. This is a very useful feature. You need 
only save the stack pointer and then have a new stack available for the 
subroutine. This results in more space on the stack, and the stack need not 
be completely reconstructed when the routine is exited. You need only to 
restore the page 1 pointer to the normal value ($01) and reset the stack 
pointer SP. This is a particularly useful feature for PASCAL compilers. 


Moving the stack might look something like this: 


LDA #$00 ;system I/O 

STA SFFOO ;enable 

LDA #SFO ;stack at address $F000 
STA $D507 ;in RAM bank 0 


TSX j;and save SP 

STX $FD jin zero-page SFD 
LDX #SFF jinitialize 

TXS jnew stack 


Since the stack has been redefined, the stack must be reconstructed the 
at the end of the routine, otherwise it is no longer possible to exit from the 
subroutine with RTS. This reconstruction looks like this: 


LDX $FD ;get old stack pointer 

TXS ;and reset SP 

LDA #$01 ;stack again at address $0100 
STA $D507 ;default value 

RTS ;return now possible 


_ Here is a rather unconventional way to clear the screen. It is used often 
in professional programs because it is very fast. It is used in graphics 
programs for filling surfaces, for example. 


The whole thing is done by "misusing" the stack pointer for addressing. 
A PHA instruction writes the contents of the accumulator to the current stack 
address and the stack address is automatically decremented--all of this in a 
one-byte command. This is much faster since it's all done in hardware. In 
the "normal" assembler notation this looks like this: 


STA ($xx),Y 
DEY 
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The addressing mode is more complicated for the CPU, so it needs 
more time. The same action requires three bytes, and it is slower since the 
code must be fetched, interpreted, and executed. 


Our new screen-clear routine saves the stack pointer, places it at the 
screen start $0400, and then pushes the accumulator onto the new stack 
1024 times. After each 256 bytes the high-order byte must naturally be 
incremented. The interrupts should also be disabled during the routine in 
order to prevent stack overflow. 


LDA #$00 ;BANK 15 
STA SFFOO 
SEI ;DISABLE INTERRUPTS 
LDA #$04 ;NEW START ADDRESS OF THE SP 
STA $D509 ;IS $0400 IN RAM BANK 0 
TSX ;STACK POINTER TO X 
STX SFD ;AND SAVE CURRENT POINTER 
LDX #SFF ;SP TO START OF STACK 
TXS 
LDY #$03 ;256 BYTES TIMES 4 
LDX #$00 ;256-BYTE COUNTER 
LDA #$20 ;FILL CHARACTER 
NEXT PHA ;SAVE CHARACTER 
DEX ;DECREMENT LOOP 
BNE NEXT ;NEXT CHARACTER 
INC $D509 ;INCREMENT SP HIGH BYTE 
DEY ;ALL FOUR BLOCKS FILLED? 
BNE NEXT ;NO, NOT YET 
LDX SFD ;GET OLD SP 
TXS ;AND STORE AGAIN 
LDA #$01 ;HIGH BYTE OF ORIGINAL STACK 
STA $D509 ;AND SET 
CLI ;REENABLE INTERRUPTS 
RTS ;END OF THE CLEAR ROUTINE 


This routine isn't much longer than a "traditional" screen-clear routine 


and it is much faster. It also demonstrates the capabilities that are possible 
by changing the page-pointer base addresses. 
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6.6 The Version Register 


Bits 7-4 Bank version; These bits give information as to the total available 
memory space. As already mentioned, the computer has the 
possibility to expanded to Mbyte. The standard contents of this 
register for the 128 are $20. The "2" stands for two 64K blocks. 
A 1M version would contain sixteen 64K blocks. Bits 7-4 of this 
register would then contain a 0. 

Bits 3-0 Se version; These bits indicate the version number of the 


The system version register is quite uninteresting for actual memory 
management. The low-order nibble contains a specification of the MMU 
version. In the high-order nibble the existing memory construction can be 
read. Here programs can determine how much memory they can access and 
set themselves accordingly. Future programs will undoubtedly do this. 
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Chapter 7: Assembly Language Programming 


7.1 Introduction to Assembly Language Programming 


We hardly need to explain to an Internals reader what assembly or 
machine language is. This chapter is designed to show you how to use the 
operating system routines in your own programs. Why keep reinventing the 
wheel? There is a whole set of useful routines available which can be very 
easily accessed. This makes your programs shorter and easier to read. 


We want to make the work easier for you and explain the kernal 
routines by means of short examples. Naturally, we cannot go into all of the 
kernal routines; there are simply too many. 


7.2 The CPU - The 8502 


The heart of a computer is the CPU and in the C-128 it's the 8502, in 
addition to the Z-80. It is fully software-compatible to the 6510 and its 
predecessor, the 6502. In contrast to the 6510, the 8502 can be driven at 
2MHz--making it twice as fast. 


The pinout: 
1 OIN System clock input; selectable 1 or 2MHz (approximately) 
2 RDY Ready; 0=processor stops on the next clock cycle until 
RDY=1. This can be used to operate slow memory, for 
example. 
3 -IRQ Interrupt request; O=processor gets the next commands 


address from $FFFE and continues from there. This occurs 
only when interrupts are enabled. 


4 -NMI Non-maskable interrupt; O=processor gets the next 
command address from $FFFA and continues from there. This 
interrupt cannot be disabled. 

5 AEC Address enable control; O=processor brings data, 


address, and control bus to the high-Z state (tri-state). The bus 
can then be driven by other devices, such as a second 
processor. 

6 VCC Operating voltage +5V. 
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7-20 AOQ-A13; Address bus. 
GND 


22-23 A14-A15; Address bus 

24-29 PS5-PO; I/O pins 

30-37 D7-DO; data bus 

38 R/-W; O=write access, 1=read access 
All access occur only when 02=1. 

39 020UT; System clock output for supplying other components 

40 RES Reset; 0=processor goes into the rest state. When the 
signal goes from 0 to 1, the processor gets an address from 
$FFFC executes the program at that address. 


7.3 The Kernal Routines 


First we like to dedicate ourselves to the routines that are found in part 
in the extended zero page. These include the very important routines which 
allow you to read from, write to, or peform a comparison with any memory 
location in any bank. 


7.3.1 FETCH, STASH, and CMPARE 


These three routines are used to read, write, and compare memory 
locations in any bank, regardless of the memory configuration. The 
configuration is unchanged after calling one of these routines. 


When calling the routines, you must pass the configuration index in the 
X register. The operating system has 16 configurations of the 128 possible 
stored in a table at $F7FO. 


Find the desired memory configuration from the table on the next page 
and load it into the X register. 
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Memory Configuration 


















Kernal, Int (Lo), RAM 0, I/O 
Kernal, Ext (Lo), RAM 1, 1/0 
Kernal, BASIC, RAM 0, CHARROM 
Kernal, BASIC, RAM 0, 





PPP EPPODMIMDUABWNHEO 
ObBWNHEO 





7.3.1.1 FETCH 
Part of the FETCH routine is found at address $02A2 in RAM. To read 
from a memory location, the following parameters are passed to this routine: 
Acc _ : pointer to zero-page address 
X-reg : configuration index (see above) 
Y-reg : offset for the address 
Before calling FETCH, place the two byte address of the memory 
location to be read into a zero-page location. Then pass the address of the 
zero-page location into the Accumulator. 


The following example program reads from address $1000 in bank 1: 


LDA #S00 ;LOW BYTE OF $1000 
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LDA 
STA 
LDA 
STA 
LDA 
LDY 
LDX 
JSR 


#$00 
SFC 
#$10 
SFD 
#SFC 
#$00 
#$01 
SFF74 


*;LOW BYTE OF $1000 
7IN ZERO PAGE 

*HIGH BYTE OF $1000 
7IN ZERO PAGE 

7 ADDRESS IN ZERO PAGE 
OFFSET IS ZERO 
*;SELECT RAM BANK 1 
;FETCH--RETURN IN ACC. 


After the call the accumulator returns the contents of the memory 
address. The X-register contains the current configuration and the Y-register 


remains unchanged. 


7.3.1.2 STASH 


The STASH routine is essentially the opposite of the FETCH routine. 
Since you must pass in the accumulator the value to be stored, the 
accumulator can no longer be used to pass the address of the zero-page 
pointer. This is why you have to do "by hand" what the FETCH routine did 
for you automatically. 


Writing to the memory address $1000 in bank RAM looks like this: 


LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
LDX 
LDY 
JSR 


#$00 
SFC 
#$10 
SFD 
#SFC 
$02B9 
#SFF 
#$01 
#500 
SFF77 


;LOW BYTE OF $1000 

;IN ZERO PAGE 

;HIGH BYTE OF $1000 

;IN ZERO PAGE 

;ZERO PAGE ADDRESS OF THE POINTER 
;WRITE TO STASH ROUTINE 

; VALUE TO BE WRITTEN 

;RAM BANK 1 

;OFFSET FOR ADDRESS 

;CALL STASH 


After calling the STASH routine, the accumulator and the Y-register are 
unchanged; the X-register contains the current configuration. 


The MMU register can be written in the same manner, without having 
to change the configuration. The same applies to the I/O components. 
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7.3.1.3 CMPARE 


The CMPARE routine compares the contents of a memory location with 
the contents of the accumulator. To do this, you have to write the address of 
‘the memory location to be compared into the CMPARE routine before 
calling it. Comparing the memory location $1000 in bank 1 with the value 
$22 would look like this: 


LDA #$00 ;LOW BYTE OF $1000 

STA SFC ;IN ZERO PAGE 

LDA #$10 ;HIGH BYTE OF $1000 

STA SFD ;IN ZERO PAGE 

LDA #SFC ;ADDRESS OF THE PTR IN THE ZERO PAGE 
STA $02C8 ;WRITE TO CMPARE ROUTINE 

LDA #$22 ;VALUE TO BE COMPARED TO 

LDX #$01 ;RAM BANK 1 

LDY #S$00 ;OFFSET 

JSR SFF7A ;COMPARE ($1000) IN RAM 1 TO $22 


After the routine has been called, the flags (zero, minus, and carry) are 
set according to the comparison. The accumulator and the Y-register remain 
unchanged, the X-register contains the current memory configuration. 


7.3.2 GETCONF 


This routine does nothing more than get the configuration byte from the 
table at $FF70 corresponding to the configuration index in the X-register. 
This value is simply returned; it is not set. Since the kernal ROM must be 
enabled in order to jump to this routine, it's recommended that you read the 
configuration byte from the table; it goes faster. 


LDX #SOF ;SELECT CONFIGURATION 15 
JSR SFF6B ;GETCONF 
STA SFFOO ;SET CONFIGURATION 
would be the same as: 
LDX #SOF ;SELECT CONFIGURATION 15 


LDA SF7F0,X ;GET CONFIGURATION BYTE 
STA SFFOO ;SET CONFIGURATION 
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The length of the routine is the same--it can be shortened by doing it 
directly (without the X-register): 


LDA $F7FO + $OF 
7.3.3 JSRFAR and JMPFAR 


If, for example, you have blocked out part of the ROM and want to 
jump to a kernal routine, you can do this via the JSRFAR routine. Here the 
CPU registers are not used for passing parameters but the zero-page 
addresses $02 to $09. 


$02 Configuration index 

$03, $04 New PC - jump address 
$05 New processor status 

$06 Accumulator 

$07 X-register 

$08 Y-register 

$09 SP - stack pointer 


The corresponding values are found at $05 as the output parameters. 
Let us assume that we have configuration 1 enabled--that is, only RAM 1. 
We want to determine the contents of address $0400 in RAM bank 0 (the 
left-hand corner of the 40-character screen). We must use the FETCH 
routine for this. For example: 


LDA #$7F ;ENABLE RAM 1 AND KERNAL 

STA SFFOO ; INTO CONFIGURATION REGISTER 

LDA #SOF ;CONFIGURATION IDEX KERNAL & RAM 0 
STA $02 ;PASS 

LDA #$FF ;HIGH BYTE OF SFF74 

STA $03 ;PASS 

LDA #$74 ;LOW BYTE OF THE DESTINATION ADDRESS 
STA $04 ;PASS SFF74 

LDA #S00 ;LOW BYTE OF $0400 

STA SFC ; SAVE 

LDA #504 ;HIGH BYTE OF $0400 

SAT SFD ;PASS 

LDA #SFC ;ZERO-PAGE ADDRESS OF THE POINTER 
STA $06 ;AND PASS 

LDA #$00 ;ADDRESS RAM BANK 0 
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LDA #$00 ;VALUE FOR Y-REGISTER FOR FETCH 

STA $08 ;SAVE OFFSET 

JSR SFF6E ;CALL JSRFAR 

LDA $06 ;HERE IS THE VALUE FROM $0400 IN 
RAM 0 


A lot of parameters to pass, right? First it's very important to ensure 
that the kernal range $CO00 to $FFFF is enabled. No RAM may be 
addressed here or the JSRFAR routine will hang up (even if you call the 
JSRFAR routine directly at $02CD--it simply branches back to the kernal). 
So you should always check this before calling JSRFAR, which we do in 
our example routine first. RAM bank 1 is enabled by the byte $7F and all 
memory areas except for $C000 to $FFFF are switched to RAM. Then the 
new configuration register is defined. 


The second important point: The program counter PC is defined with 
the high byte at address $03 and the low byte at address $04; note that this 
is not the usual machine language convention. 


All specifications that are not absolutely necessary can be omitted. 
Usually all that is required is to define the memory configuration in $02 and 
then the new program counter in $03/$04. All the others are options which 
may be useful at various times. 


The routine JSRFAR writes the corresponding values at addresses $05 
to $09 when it returns. In our example, use is also made of parameter 
passing in the accumulator. 


We now want to show you another short example. Imagine that you 
have program code in RAM bank 0 as well as RAM bank 1. This first 
routine is the "subroutine" in bank 1 which in our example does nothing 
more than add the accumulator and X-register. The carry is indicated in the 
Si ee ne the routine in the monitor with A 12000. You then select 


12000 LDA $06 ;ACC PARAMETER 

12002 CLC ;CLEAR CARRY FOR ADDITION 
12003 ADC $07 ;ADD TO X REGISTER 

12005 RTS ;END OF THE ROUTINE 


The routine gets the contents of the accumulator from address $06 and 
then adds it to the X-register. The contents of the accumulator are returned 
in address $06. In this example it is important that the processor status 
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in address $06. In this example it is important that the processor status 
register, containing the flags, is passed to address $05. In the main program 
the carry flag can be tested with BCC or BCS. But here is the routine in 
RAM bank 0, which calls the routine in RAM bank 1 by means of the 
JSRFAR routine: 


02000 LDA #$3F ;RAM O AND KERNAL 

02002 STA SFFOO ;SET AS CONFIGURATION 

02005 LDA #SOD ;RAM 1 AND KERNAL 

02007 STA $02 ;NEW CONFIGURATION 

02009 LDA #$20 ;ACC IS $20 

0200B STA $06 ;PASS 

0200D LDA #SFF ;ADD SFF 

0200F STA $07 ;PASS 

02011 LDA #$20 ;HIGH BYTE OF $2000 

02013 STA $03 ;PASS AS PC 

02015 LDA #$00 ;LOW BYTE OF $2000 

02017 STA $04 ;PASS AS PC 

02019 JSR SFF74 ;CALL JSRFAR 

0201C LDA $05 ;GET FLAGS 

O201E PHA ;ON STACK 

0201F PLP ;AND IN FLAG REGISTER 
- 02020 LDA $06 ;LOW BYTE OF ADDITION 

02022 STA SFD ;STORE AS LOW BYTE 

02024 LDA #$00 ;HIGH BYTE 

02026 STA SFE ; STORE 

02028 BCC $202C ;NO CARRY, THEN JUMP 

0202A INC SFE ;COMPENSATE FOR CARRY 

0202C BRK ;TO MONITOR 


When you enter and start this routine, you will find the result of the 
addition $FF+$20 = $11F at address $FD/$FE. This routine shows how to 
get the flags which are passed in memory location $05 actually into the 
status register: Load the accumulator with the contents of $05, push it onto 
the stack, and then pull it into the status register. 


The JMPFAR routine works the same way as JSRFAR. Here however 
there is no return via RTS, but that is also why this routine is called 
JMPFAR. Naturally, no output parameters can be checked since there is no 
return. 
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7.4 The Important Kernal Routines 
7.4.1 Kernal routines with vectors at $FF4D 


First we want to look at the kernal routines defined via jump vectors at 
address $FF4D. These include the most important routines, from input and 
output of characters to the RS-232 routines. 


The routines are introduced in the order of their definition at $FF4D. 
Whenever possible, the input/output parameters are given, as well as a short 
description. Where appropriate, a short example routine accompanies the 
description. The entry addresses are given in both decimal (in parentheses) 
and hexadecimal. 


When vectors are present, you should always use them to access the 
routine--it's why they are there. Should the operating system ever be 
changed or extended, the location of these vectors will not be changed so 
your program will not crash or go crazy. 


C64 MODE 


Purpose: Enable the 64 mode 
Address: $FF4D (65357) 


Description: A jump to this routine causes the computer to switch from the 
128 mode to the 64 mode. The clock frequency is reduced to 1MHz and the 
MMU locks all of the necessary registers so that they cannot be manipulated 
in the 64 mode. There is no return! 


Input parameters: None 
Output parameters: -none, since no return- 
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DMA-CALL 


Purpose: Initialize external RAM components 
Address: $FF50 (65360) 


Description: In order to have direct memory access (DMA) to external 
RAM, it must be first initialized with this routine. The new configuration is 
passed in the X-register. 

Input parameter; .X 

Output parameters: 


BOOTCALL 


Purpose: Boot the disk 
Address: $FF53 (65363) 


Description: When this routine is called, the computer attempts to boot from 
the disk inserted in the drive--the same as when the computer is turned on. 
If the routine cannot find a boot file, it returns control. The device address is 
passed in the X-register so you can boot from device 8 or 9. 


Input parameter; .X 
Output parameters: 
PHOENIX 


Purpose: Cold start 
Address: $FF56 (65366) 


Description: Cold start the 128 mode. If a memory card is found in the 


expansion cartridge, control is passed to this card. Otherwise an attempt is 
made to boot the disk. Tabs, key definitions, etc. are all reset. 
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LKUPLA 


Purpose: Search in the table for logical file number 
Address $FF59 (65369) 


Description: The routine searches in the table for the device and secondary 
addresses of the logical file number given in the accumulator. The status 
variable ST is set according to the results of the routine. If the logical file 
number is found, the carry is cleared and the following parameters are 
transmitted: A:LFN, X:device address, Y:secondary address. If the routine 
does not succeed, the carry is set. Only logical file numbers opened with 
OPEN can be found. 


Input parameter: .A contains the LEN to find 
Output parameters: Status ST at $90, .A, .X, .Y, carry 
Zero-page address $B8 to $BA 


Example: 
;Search for LFN 
LDA #501 ;SEARCH FOR LFN 1 
JSR SFF59 
BCS ERROR ;NOT OPENED--OUTPUT ERROR 
TAX ;LFN TO X 
JSR SFF59 ;CKOUT - SET FILE AS OUTPUT FILE 


LKUPSA 


Purpose: Search for a secondary address 
Address: $FF5C (65372) 


Description: This routine looks in the table of opened channels for the 
secondary address passed in the Y-register. As for the LKUPLA routine, 
the carry flag is set if the search failed. The carry is cleared if the search 
succeeded and the accumulator contains the LFN, the X-register contains 
the device address, and the Y-register the secondary address. 


Input parameters: .Y contains the SA to search for 


Output parameters: Status ST at $90, .A, .X, .Y, carry 
Zero-page addresses $B8 to $BA 
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Example: 
;Search for LFN of disk command channel 
LDY #SOF ;SEARCH FOR LFN WITH 
JSR SFF5C ;SECONDARY ADDRESS 15 
BCS ERROR ;NOT FOUND, RETURN ERROR 
TAX 7;LEFN TO X 
JSR CKOUT ;OPEN AS OUTPUT DEVICE 
JSR INITD ; INITIALIZE DISKETTE 


SWAPPER 


Purpose: Switch 40/80 columns 
Address: $FFSF (65375) 


Description: This routine exchanges the 40/80 column mode. The 
information in the zero page for the active screen must be exchanged with 
that of the passive screen. The memory range $E0 to $FA is exchanged with 
the area $0A40 to $OASA. No input parameters are necessary. 


Example: 
;Clear both screens 
JSR $C142 ;CLEAR SCREEN 
JSR SFF5F ;EXCHANGE 40/80 COLUMN MODE 
JSR $C142 ;CLEAR PASSIVE SCREEN TOO 
JSR SFF5F ;BACK TO CURRENT SCREEN 


DLCHR 


Purpose: Copy the CHARROM 
Address: $FF62 (65378) 


Description: The character set is copied into the VDC RAM when the 
<40/80 DISPLAY> key is pressed because the 80-column controller does 
not get the character information from ROM. The graphics package, for 
example, makes use of this routine because the character set in VDC RAM 
is overwritten when graphics are used. The character set selected by the 
<40/80 DISPLAY> key and is copied into VDC RAM by this routine. 
There are neither input nor output parameters. 
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PFKEY 


Purpose: Redfine a key 
Address: $FF65 (65381) 


Description: This routine allows you to define the function keys (F1 to F8 
as well as SHIFT/RUN-STOP and HELP). The address in the zero page 
which points to the KEY text is passed in the accumulator. The X-register 
contains the number of the function key (1 to 10) and Y contains the length 
of the string. Then you can call the routine PFKEY, which inserts this 
string into the table. 

Input parameters: Zero page, .A, .X, .Y 


Example: (at address $2100) 
;Redefine the HELP key 
LDA #500 ;LOW BYTE OF $2000 
STA SFC ;STORE IN ZERO PAGE 
LDA #$20 ;HIGH BYTE OF $2000 
STA SFD ;STORE IN ZERO PAGE 
LDA #SFC ;POINTER 
LDX #$0C ;REDEFINE HELP KEY 
LDY #4 ;LENGTH OF STRING AT $2000 
JSR SFF65 ;REDFINE KEY 


And at address $2000: 
02000 52 55 4E OD .... 


SETBNK 


Purpose: Define memory bank for disk operation 
Address: $FF68 (65384) 


Description: This routine must be called before LOAD, SAVE, VERIFY, 
and every OPEN command. The configuration index of the filename is 
passed to it in the Y-register, as well as the configuration index of the 
memory area to be processed in the accumulator. The Y-register is stored in 
zero-page address $C6 and the accumulator in $C7. See also the example 
for SETNAM (FFBD). 


Input parameters: .A, .Y 
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GETCONF 


Purpose: Get the configuration byte 
Address: $FF6B (65387) 


Description: There is a table of 16 of the memory configurations required 
for normal operation. This table is found at address $F7FO. You pass the 
configuration index to this routine in the X-register and you get the 
configuration byte back in the accumulator. Normally this byte is then 
written in the configuration register at address $FFOO of the MMU. 


Input parameter: .X 
Output parameter: .A 


Example: 
7;Set RAM bank 1 
LDX #$01 ;ONLY RAM BANK 1 
JSR SFF6B ;GET CONFIGURATION BYTE 
STA SFFOO ;AND SET 


-JSRFAR 


Purpose: Jump to a subroutine in any bank 
Address: $FF6E (65390) 


Description: The routine JSRFAR is used to jump to a subroutine in any 
configuration. The parameters are passed through zero-page locations $02 
to $09. After the routine returns, the old configuration is re-enabled. A 
precise description including example program is found in Section 7.3.3. 


Input parameters: Zero page $02 to $09 
Output parameters: Zero page $05 to $09 
JMPFAR 


se: Jump to any bank 
Address $FF71 (65393) 


Description: Here again the parameters are passed throu gh zero-page 
addresses $02 to $09. JMPFAR is not a subroutine call but just a jump to an 
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address in a bank; JMPFAR combines switching the configuration byte with 
the jump. Since there is no return here, no parameters are returned. You can 
find more about this routine in Section 7.3.3. 


Input parameters: Zero page $02 to $09 


INDFET 


Purpose: Get a byte from any bank 
Address: $FF74 (65396) 


Description: This routine, completely contained in the zero page, allows you 
to read any memory address in any configuration without having to change 
the current configuration. To do this you must first define a pointer in a 
zero-page address to the memory location to be read. This zero-page 
address is then passed in the accumulator, while the configuration index is 
passed in the X-register and the offset to the zero-page pointer in the 
Y-register. You can find more information about the FETCH (=INDFET), 
STASH, and CMPARE routines in Section 7.3.1. 


Input parameters: .A, .X, .Y, 1 zero-page address 
Output parameter: .A 


Example: 
;Get $1000 from RAM bank 1 
LDA #500 ;LOW BYTE OF $1000 
STA SFC ;STORE IN ZERO PAGE 
LDA #$10 ;HIGH BYTE OF $1000 
STA SFD ;STORE IN ZERO PAGE 
LDA #SFC ;POINTER IN ZERO PAGE 
LDX #SOD ;RAM 1 AND KERNAL 
LDY #$00 ;OFFSET IS ZERO 
JSR S$FF74 ;GET BYTE FROM $1000, RAM BANK 1 


INDSTA 


Purpose: Store accumulator in any bank 
Address: $FF77 (65399) 


Description: Similar to the INDFET routine, this routine stores the contents 
of the accumulator in any memory configuration. The parameters must be 
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passed in the accumulator, and the X and Y registers. The character to be 
stored must be passed in the accumulator. The zero-page address at which 
the pointer is stored must be defined at address $02B9. You can get more 
detailed information about this routine in Section 7.3.1. 


Input parameters: .A, .X, .Y, zero page, $02B9 


Example: 
;Store SFF at $1000 in RAM bank 1 
LDA #$00 ;LOW BYTE OF $1000 
STA SFC ; STORE 
LDA #$10 ;HIGH BYTE OF $1000 
STA SFD ; STORE 
LDA #SFC ;ADDRESS IN ZERO PAGE 
STA $02B9 ;PASS TO INDSTA ROUTINE 
LDA #SFF ;VALUE TO BE WRITTEN 
LDX #S0D ;RAM 1 AND KERNAL 
LDY #$00 ;OFFSET IS ZERO 
JSR $FF77 ;CALL INDSTA | 


INDCMP 


Purpose: Compare the accumulator with memory in any bank 
Address: $FF7A (65402) 


Description: This routine compares the accumulator with any memory 
location in any bank. Just as with the INDSTA routine, you must pass the 
address of a zero-page pointer to the INDCMP routine. This is done at 
address $02C8. The byte to be compared is passed in the accumulator while 
the configuration index is passed in X and the offset in the Y-register. After 
calling the routine, the result of the comparison--the processor status 
byte--is found at address $05. The example below shows how you can react 
accordingly to the result of the comparison. More information is in Section 
7.3.1. 


Input parameters: .A, .X, .Y, zero page, $02C8 
Output parameters: $05 (status) 


Example: 
;Compare <acc> with <$1000> in bank 1 
LDA #$00 ;LOW BYTE OF $1000 
STA SFC ;STORE 
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LDA #$10 ;HIGH BYTE OF $1000 

STA SFD ; STORE 

LDA #SFC ;POINTER IN ZERO PAGE 

STA $02C8 ;PASS TO INDCMP ROUTINE 

LDA #SFF ;COMPARISON OPERAND 

LDX #SO0D ;RAM BANK 1 AND KERNAL 

LDY #$00 ;OFFSET 

JSR SFF7A ;CALL INDCMP 

LDA $05 ;GET STATUS (RESULT OF COMPARE) 


PHA ;ON STACK AND THEN 
PLP ; IN PROCESSOR STATUS REGISTER 
BEQ EQUAL ;JUMP IF EQUAL 
;--- NOT EQUAL --- 

PRIMM 


Purpose: Output text 
Address: $FF7D (65405) 


Description: This routine is very practical because it's simple to use. No 
parameters need be passed. All characters following the call are sent to the 
current output device via BSOUT. A zero-byte is used as the terminating 
character. The program execution is then continued immediately following 
the zero-byte. One disadvantage of this routine: The program will be 
unreadable if it is disassembled. 


Example: 
JSR SFF7D ;OUTPUT FOLLOWING CHARACTER 
-ASC "This is a string!" 
-BYT $0D,$0A,$0D,$00 
LDA #$00 ;THE PROGRAM CONTINUES HERE 


See also the example in the ROM listing at $F908. 


CINIT 


Purpose: Initialize video controller and editor 
Address: $FF81 (65409) 


Description: The function keys are returned to the defaults, both video 
controllers are initialized and the 40/80 column mode is enabled dependent 
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on the 40/80 column key. The keyboard buffer is cleared, all flags are reset, 
and a CLRCH is performed. 


IOINIT 


Purpose: Initialize the input/output device 
Address: $FF84 (65412) 


Description: The input/output devices are initalized, meaning that the 
RESET line on the serial bus is activated. Any printers connected are set to 
their initial states and the disk drive clears its channels--it is like it had just 
been turned on. 


RAMTAS 


Purpose: BASIC warm start 
Address: $FF87 (65415) 


Description: This routine initializes the zero page, resets the pointers for 
SYSTOP and SYSBOT (the memory upper and lower boundaries), resets 
the pointers for the RS-232 input/output buffers, and resets the cassette 
buffer. 


RESTOR 


Purpose: Initialize system vectors 
Address: $FF8A (65418) 


Description: The system vectors at address $0314 to $0332 (inclusive) are 
set to the default values. This routine should be called when you modified 
many of the vectors and want to set them back. This routine calls the 
following VECTOR routine with the carry cleared. 
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VECTOR 


Purpose: Copy or reset system vectors 
Address: $FF8D (65421) 


Description: This routine copies the 16 vectors at $0314 to the address 
defined by the X (low) and Y (high) registers, provided the carry flag is set. 
If the carry flag is cleared, the vectors at $0314 are loaded with the area 
given by the X and Y registers. 


Input parameters: .X, .Y, carry 
Example: 
LDX #$00 ;LOW BYTE OF $1000 
LDY #$10 ;HIGH BYTE OF $1000 
CLC ;CLEAR CARRY FOR COPY ($1000) ->($0314) 
JSR $FF8D ;LOAD VECTORS 
SETMSG 


Purpose: Enable/disable DOS messages | 
Address: $FF90 (65424) 


Description: The routine stores the value of the accumulator in the zero-page 
address $9D. If system messages should be printed, set bit 7 of the 
accumulator. If $9D is positive, system messages are inhibited. 


Input parameter:  .A 


SECND 


Purpose: Send secondary address to LISTEN 
Address: $FF93 (65427) 


Description: The secondary address to be sent is passed in the accumulator. 
The routine outputs the contents of the accumulator on the serial bus as the 
secondary address. 


Input parameters: .A 
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Example: 
;SEND LISTEN 
LDA #SFO ;SECONDARY ADDRESS 0 FOR CLOSE 
JSR SFF93 ;SET SECONDARY ADDRESS 


TKSA 


Purpose: Send secondary address to TALK 
Address: $FF96 (65430) 


Description: This routine sends the secondary address given in the 
accumulator on the bus preceded by a TALK signal. 


Input parameter: .A 


MEMTOP 


Purpose: Set/get the memory top 
Address: $FF99 (65433) 


Description: If the carry flag is set, the maximum available memory location 
is returned in the X-register (low) and Y-register (high). If the routine is 
called with the carry cleared, the memory top is set with the two registers. 


Input parameters: .X, .Y (for cleared carry), carry 
Output parameters: .X, .Y (for set carry) 


Example: 
;Read the memory top 
SEC ;READ THE TOP 


JSR SFF99 ;GET TOP 

STX SFC ; STORE 

STY SFD ; STORE 

LDX #$S00 ;LOW BYTE OF $1000 
LDY #$10 ;HIGH BYTE OF $1000 
CLC ;FLAG TO SET MEMTOP 
JSR SFF99 ;SET MEMORY TOP 
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MEMBOT 


Purpose: Set/get the memory bottom 
Address: $FF9C (65436) 


Description: Similar to MEMTOP, the lower boundary of the available 
memory is set with the two registers X (low) and Y (high) if the carry flag 
is cleared. If the carry flag is set, the memory bottom is read and returned in 
the two registers. 


Input parameters: .X, .Y (for cleared carry), carry 
Output parameters: .X, .Y (for set carry) 


KEY 


Purpose: Return key pressed 
Address: $FF9F (65439) 


Description: This routine is elementary to keyboard decoding. The keyboard 
is checked for a pressed key by means of the keyboard decoding table. Ifa 


pressed key is returned, the ASCII value is determined and placed into the 
keyboard buffer at ($034A). 


SETTMO 


Purpose: Set the time-out flag for IEEE 
Address: $FFA2 (65442) 


Description: The routine saves the value passed in the accumulator at 
address $0AOE as the timeout flag for the IEEE routines. In order to permit 
the timeout in the IEEE routines, bit 7 of the accumulator must be set. 


Input parameters: .A 
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ACPTR 


Purpose: Get a byte from the serial bus 
Address: $FFA5 (65445) 


Description: The routine gets a byte from the serial bus. This character is 
returned in the accumulator. The status byte ST at $90 is set according to the 
action. 


Output parameter: .A 


CIOUT 


Purpose: Output a character to the serial bus 
Address: $FFA8 (65448) 


Description: This routine is counterpart of ACPTR. The character passed in 
the accumulator is output on the serial bus. Here too the status byte ST at 
$90 is changed according to the action. 


Input parameter: .A 


UNTLK 


Purpose: Send UNTALK on the serial bus 
Address: $FFAB (65451) 


Description: This routine is called when closing or redirecting an input 
channel. It silences a "talking" device. 


UNLSN 


Purpose: Send UNLISTEN on the serial bus 
Address: $FFAE (65454) 


Description: Corresponding to UNTALK, this routine shuts off a receiving 
device. This is done when closing or redirecting an output channel. 
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LISTN 


Purpose: Send LISTEN to a device 
Address: $FFB1 (65457) 


Description: A device on the serial bus is requested for input. The LISTEN 
signal is sent over the serial bus to do this. The device address of the 
appropriate device is passed in the accumulator. For example, a LISTEN is 
sent to a printer before characters are sent to it over the serial bus. If you use 
LISTEN, you must output the characters via the routine CIOUT (not via 
BSOUT!). Use the routine UNLISTEN to close the channel. Only one 
device may be active on the serial bus. To simplify all this, you can open 
and close channels in the operating system. BSOUT and BASIN then take 
care of sending LISTEN and UNLISTEN as well as TALK and UNTALK. 


Input parameter: .A 
Example: 
;Send LISTEN to printer 
LDA #$24 ;DEVICE ADDRESS FOR PRINTER AND 
LISTEN ON 
JSR $FFB1 
TALK 


Purpose: Send TALK to a device 
Address: $FFB4 (65460) 


Description: This routine sends the command TALK to a device. The device 
address is to be passed in the accumulator. The TALK command requests a 
device connected to the serial bus for talking, i.e. for sending information. 


Input parameters: .A 
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READST 


Purpose: Get the I/O status byte 
Address $FFB7 (65463) 


Description: The current system status is returned in the accumulator. If the 
RS-232 is active, the status byte is returned and immediately cleared in 
memory. If you need the status byte more often, save it somewhere. If a 
channel other than the RS-232 channel is open, the status byte is returned in 
address $90. 


Output parameter: .A 


SETLFS 


Purpose: Set file parameters 
Address: $FFBA (65466) 


Description: This routine is required to open a file. The logical file number 
is passed in the accumulator, the device address in the X-register, and the 
secondary address in the Y-register. The routine stores these values in the 
zero-page addresses from $B8 to $BA. 


Input parameters: .A, .X, .Y 


SETNAM 


Purpose: Set the filename parameters 
Address: $FFBD (65469) 


Description: Information for the filename is stored in the zero page in this 
routine. These specifications must all be made before the channel is opened. 
The length of the filename is passed in the accumulator, the low byte of the 
address at which the filename is stored in the X-register, and the high byte 
in the Y-register. Furthermore, you must pass with the SETBNK routine 
the configuration indices for the filename and the memory range to be 
processed. 


Input parameters: .A, .X, .Y 
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Example: 
;Open one of the directory files on the disk 
LDA #$0C ;AREA IN RAM BANK 0 
TAX ;FILENAME ALSO IN RAM BANK 0 
JSR SFF68 ;CALL SETBNK 
LDA #$01 ;LOGICAL FILENUMBER 
LDX #$08 ;DEVICE ADDRESS 
LDY #$00 ;SECONDARY ADDRESS FOR READING 
JSR S$FFBA ;SETFLS 
LDA #$01 ;LENGTH OF THE FILENAME 
LDX #500 ;LOW BYTE OF THE ADDRESS AT WHICH 
LDY #$10 ;THE FILENAME IS STORED ($1000) 
JSR SFFBD ;OPEN - OPEN THE CHANNEL 


and at address $1000: 
01000 24 


OPEN 


Purpose: Open a file 
Address: $FFCO (65472) 


Description: The file defined by the routines SETNAM, SETLFS, and 
SETBNK is entered into the list of logical file numbers. Not until this is 
done can the logical file number be used for the routines CKOUT and 
CHKIN. A maximum of nine files can be open at one time. 


CLOSE 


Purpose: Close a logical file 
Address: $FFC3 (65475) 


Description: The logical file specified in the accumulator is closed. All 
stored values like the device address, secondary address, etc. are erased 
from the table. If an error is encountered, the carry flag will be set. 


Input parameter: .A 
Output parameter: carry 
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Example: 
;Example for CLOSE 
LDA #$01 ;CLOSE THE EXAMPLE FILE FROM SETNAM 
JSR $FFC3 ;CALL CLOSE 
BCS ERROR ;ERROR ENCOUNTERED 


CHKIN 


Purpose: Define a logical file as the input channel 
Address: $FFC6 (65478) 


Description: The logical file number to be used as the input channel is 
passed in the X-register. The given logical file number must have already 
been opened with the OPEN command. If the BASIN routine is called after 
the OPEN command, the input is not done from the keyboard but from the 
opened file; this can be from the disk drive. It should be noted that no 
CHKIN is required when reading from the keyboard because it is the 
standard input device. After a CLOSE or CLRCH, the keyboard is 
automatically again the input device. The carry flag is also used as the OK 
flag for this routine. 


Input parameter: .X 
Output parameter: carry 


Example: 
;Read the directory 
JSR DIROP ;OPEN 1,8,0,"$"(SELF-DEFINED ROUTINE) 
LDX #$01 ;LFN OF THE OPENED FILE 
JSR SFFC6 ;EXECUTE CHKIN 
JSR SFFCF ;BASIN--GET CHARACTER 


> 


CKOUT 


Purpose: Define a logical file as the output file 
Address: $FFC9 (65481) 


Description: This routine defines a file passed in the X-register as the output 
file. It must have been previously opened properly. A file opened with 
OPEN 1,8,0,"$" and then defined as the output file with CKOUT would 
result in an error because this file was opened for reading and not for 
writing. After defining an output file, the screen is no longer the output 
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device -- the output file is. All characters output via BSOUT are sent to this 
device. The carry flag is used to indicate an error. If it is cleared, the 
operation was successful. 


Input parameters: .X 
Output parameters: carry 


CLRCH 


Purpose: Close input/output channel 
Address: $FFCC (65484) 


Description: This routine clears any input or output files defined with 
CHKIN and/or CHKIN. An UNTALK is sent to the input device and 
UNLISTEN is sent to the output device. The screen again becomes the 
output device and the keyboard the input device. The files are not closed. 
Neither input nor output parameters are passed. 


BASIN 


Purpose: Get a character from the input channel 
Address: $FFCF (65487) 


Description: The file opened and defined as the input file by CHKIN 
(otherwise the keyboard) returns a character in the accumulator. 


Output parameter: .A 


BSOUT 


Purpose: Output a character to the output channel 
Address: $FFD2 (65490) 


Description: The character passed in the accumulator is sent to the open file 
defined as the output file by CKOUT. If the screen is the output file 
(default), the ASCII character is converted to a printable POKE code (This 
is an extensive procedure. Those interested should look at the appropriate 
code in the C range of the kernal). 
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Input parameter: .A 


Example: 
;Switch the 40/80 column mode 
LDA #$1B ;<ESC> 
JSR BSOUT ;SFFD2, OUTPUT CHARACTER 
LDA #"X" 7<ESC>X TO EXCHANGE THE SCREEN STATUS 
JSR BSOUT ;OUTPUT 


(There is also a special routine to which you can jump.) 


LOADSP 


Purpose: Load a file into memory 
Address: $FFDS5 (65493) 


Description: Before a file can be loaded with LOADSP, the device, 
secondary address, filename, etc. must be defined by the routines SETLFS, 
SETNAM, and SETBNK. The address at which the file is to be loaded is 
passed in the X (low) and Y (high) registers. 


Input parameters: .X, .Y 


Example: 
;Load an overlay 
JSR PREP ;SETLFS, SETBNK, SETNAM, ETC. 
LDX #$00 ;LOW BYTE OF $1000 
LDY #$10 ;HIGH BYTE OF $1000 (LOAD ADDRESS) 
JSR SFFD5 ;LOAD FILE AT $1000 


SAVESP 


Purpose: Save memory to a file 
Address: $FFD8 (65496) 


Description: This routine saves a memory range to a file (disk, cassette). As 
with the LOADSP routine, you must first define the device address, 
secondary address, RAM bank, filename, etc. with the routines SETBNK, 
SETLFS, and SETNAM. The zero-page address at which the start address 
of the area to be saved is stored and passed in the accumulator. The end 
address of the range is passed in the X (low) and Y (high) registers. 
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a 


Input parameters: .A, .X, .Y, zero page 


Example: 
;Save the range $1000 to $1100 
JSR PREP ;CALL SETLFS, SETNAM, SETBNK 
LDA #$S00 ;LOW BYTE OF $1000 
STA SFC ;STORE IN ZERO PAGE 
LDA #$10 ;HIGH BYTE OF $1000 
STA SFD ;STORE IN ZERO PAGE 
LDA #SFC ;THE POINTER IS LOCATED IN SFC 
LDX #800 ;LOW BYTE OF THE END ADDRESS $1100 
LDY #$11 ;HIGH BYTE OF THE END ADDRESS $1100 
JSR SFFD8 ;SAVESP--SAVE THE RANGE $1000-$1100 


SETTIM 


Purpose: Set the system clock TI 
Address: $FFDB (65499) 


Description: This routine sets the system clock TI, which is defined at 
address $A0. This clock is controlled by the kernal IRQ routine and is not 
very accurate. If want an accurate clock, use the timers in the two CIAs (see 
Chapter 3). The high-order byte of the 24-hour clock is passed in the 
Y-register. 


Input parameters: .A, .X, .Y 


Example: 
;Reset the system clock 
LDA #$00 ;RESET MEANS 
TAY ;SET TO 0,0,0 
TAX ;ALL THREE REGISTERS TO ZERO 
JSR SFFDB ;SETTIM 


RDTIM 


Purpose: Read the system clock 
Address: $FFDE (65502) 


Description: This routine reads from the 24-hour clock and passes the three 
bytes in registers Y (highest-order), X, and the accumulator (lowest). 
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Output parameters: .A, .X, .Y 


Example: 
7;Read the 24-hour clock 
JSR SFFDE ;CALL RDTIM 
STY SFC 7STORE MSB 
STX SFD ;STORE MIDDLE BYTE 
STA SFE ;STORE LSB 


STOP 


Purpose: Poll the STOP key 
Address: $FFE1 (65505) 


Description: If the STOP key was pressed since the last IRQ call, the zero 
flag will be set and a CLRCH will be executed. If the STOP key was not 
pressed, the zero flag will be cleared. 
Output parameters: zero flag 
Example: 

Check for STOP 

JSR SFFE1 ;STOP KEY PRESSED 

BEQ YES 7 PRESSED 
GETIN 


Purpose: Geta character from the keyboard buffer or RS-232 
Address: $FFE4 (65508) | 


Description: Gets a character from the defined input file. If no character is 
ready, the accumulator is returned with zero. 


Output parameter: .A 
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CLALL 


Purpose: Close all open files 
Address: $FFE7 (65511) 


Description: All of the files opened with OPEN are closed, actually CCALL 
deletes the files by clearing the table index--no CLOSE is actually 
performed. This can be particularly annoying for open disk files (WRITE 
FILE OPEN ERROR results). After erasing the logical files, a CLRCH is 
executed. CLALL should therefore be used with caution. 


UDTIM 


Purpose: Update system clock 
Address: $FFEA (65514) 


Description: This routine is usually called by the IRQ routine. The 
three-byte 24-hour clock is incremented by one unit. 


SCRORG 


Purpose: Get the size of the current window 
Address: $FFED (65117) 


Description: The routine SCRORG gets the current window values in the 
registers. After the call, the accumulator contains the maximum column 
number, the number of lines in the window is found in the Y-register, and 
the X-register contains the number of columns in the window. 


Output parameters: .A, .X, .Y 


PLOT 


Purpose: Get/set cursor position 
Address: $FFFO (65120) 


Description: The cursor position is either fetched or set based on the 


condition of the carry flag. The X and Y registers are the communication 
registers. The Y-register defines the line (the first line in the window is 
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zero) and the X-register the column of the cursor. If the carry flag is set, the 
current cursor position in the window is returned in the X and Y registers. 


Input parameters: .X, .Y, carry 
Example: 


;Set an asterisk in the middle of the window 
JSR SFFED ;CALL SCRORG 


TXA #COLUMN NUMBER TO ACC 

LSR A *DIVISION BY TWO (MIDDLE) 

TAX AND AS COLUMN BACK TO X 

TYA . 7LINE NUMBER TO ACC 

LSR A *;DIVISION BY TWO (MIDDLE) 

TAY *AND AS LINE TO Y 

CLC CLEAR CARRY=SET CURSOR POSITION 


JSR SFFFO ;SET CURSOR POSITION 
LDA #"*" ;LOAD ACC WITH ASTERISK 
JSR SFFD2 ;AND OUTPUT 


IOBASE 


Purpose: Get the base address of the I/O area 
Address: $FFF3 (65123) 


Description: The address of the input/output area is returns in the X (low) 
and Y (high) registers. This address is always $D000 for the 128. For later 
expansions or movements, we advise you in order to maintain compatibility 
to integrate this routine into the software and make reference to it. 


Output parameters: .X, .Y 
Example: 
Start of the program 
JSR S$FFD3 ;IOBASE 
STX S$FD ;STORE LOW BYTE 
STY SFE *;STORE HIGH BYTE 
This address is referenced in the program as follows: 


STA (SFD),Y ;IN I/O AREA 
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There are some other routines in the kernal which can help save time 
and program memory. These routines are found particularly in the $CO00 
block of ROM and are used for input/output on the two screens. Here are 
some of the routines we feel are useful. 


CLRWIN 


Purpose: Clear the window (screen) 
Address: $C142 (49474) 


Description: If no window is defined, the entire screen is cleared. If a 


window is defined, only the screen area inside the boundaries of the 
window is erased. 


CURHOM 


Purpose: Cursor to HOME position in window 
Address: $C150 (49482) 


Description: The cursor is positioned in the upper left-hand corner of the 
window. If no window is defined, the cursor is placed in the upper 


left-hand corner of the screen. Note that position 0/0 always defines the 
upper left-hand corner of the window. 


GETLIN 


Purpose: Get an input character 
Address: $C258 (49752) 


Description: Characters are taken from the keyboard and displayed on the 
screen at the current cursor position until the <RETURN> key is pressed. 


175 


Abacus Software C-128 Internals 


BSOUT SCRN 


Purpose: Output a character to the current screen 
Address: $C72D (50989) 


Description: This routine is the continuation of the BSOUT routine at 
$FFD2. The routine is faster since it does not have all of the checks that are 
built into BSOUT. The character is passed to the routine in the accumulator 
and output to the currently active screen--at the current cursor position. 


Input parameters: .A 


CLQIR 


Purpose: Clear the quote, insert, and reverse modes 
Address: $C77D (51069) 


Description: This routine clears the flags for the quote, insert, and reverse 
modes. It works somewhat faster than outputting the necessary control 
sequences via BSOUT. 


Here is a list of other important routines and their address: 


$C854 (51284) Cursor right in window 

$C85A (51290) Cursor down in window 

$C867 (51303) Cursor up in window 

$C875 (51317) Cursor left in window 

$C880 (51328) Enable second character set 

$C8BF (51391) Clear RVS mode 

$C8C1 (51393) SetRVS mode 

$C8C7 (51399) Enable underlining 

$C8CE (51406) Disable underlining 

$C91B (51483) Delete character to the left of the cursor 
$C93D (51517) Delete character under cursor 

$C94F (51535) Jump to tab 

$C980 (51584) Clear all tabs 

$C98E (51598) BELL - create bell tone 

$CA14 (51732) Cursor pos. defined left/top of window 
$CA16 (51734) Cursor pos. defined right/top of window 
$CA24 (51748) Define screen as window 

$CA52 (51794) Clear current line 
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$CA76 (51830) Clear from cursor to end of line 

$CA8B (51851) Clear from start of line to cursor pos. 

$CA9F (51871) Clear from cursor pos. to end of screen 

$CABC (51900) Scroll up 

$CAF2 (51954) Enable block cursor 

$CAFE (51966) Enable underline cursor 

$CBOB (51979) Cursor flash off 

$CB21 (52001) Cursor flash on 

$CB3F (52031) Invert 80-column screen 

$CB48 (52040) 80-column screen normal 

$CC27 (52263)  <space> at current cursor position 

$CC2F (52271) Character <acc> at current cursor position 

$CC4A (52298) Output character <acc>, <X>:color, <Y>:column to 
80-column screen (without moving the cursor) 

$CC6A (52330)  Get/set cursor position 

$CD2C (52524) SWAPPER - switch 40/80-column 


7.5 Tips & Tricks 


Naturally, this section cannot replace our book Tips & Tricks, but we 
want to explain to you the most important and/or useful things which we 
have found out. 


By use of these examples, you'll be able to see how to use the 
documented zero-page and ROM listings--since the information ultimately 
comes from these listings. 


7.5.1 Disabling the STOP key 


Frequently you may want to prevent the user from interrupting the 
program by pressing the STOP key--in many situations this can be 
dangerous if the STOP key is pressed accidentally. 


To solve the problem, we look in zero page. Here, at address $0300 is 
a table of jump commands for the most important kernal routines. 
Practically speaking, this area is an interface between the programmer and 
the operating system, because it allows the programmer to cause other 
things to happen simply by redirecting the jump commands (usually to a 
routine he writes). 
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The address for the kernal STOP routine is found at address $0328--it 
points to $F66E. The current status of the STOP key is read from zero-page 
address $91 at this address $F66E. Address $91 is always loaded with the 
latest condition by the IRQ routine. If we skip this test, we achieve the 
effect that pressing the STOP key is no longer recognized by the STOP test 
routine. We need only modify the address at $0328. We write the low byte 
of the address of the command following the STOP routine to this 
address.We do this in BASIC with the following POKE: 


POKE DEC('0328"),112 : REM DISABLE STOP KEY 


The vector $0328/$0329 no longer points to $F66E but to $F670. The 
operating system no longer recognizes the STOP key, not during a 
program, nor while listing, or many other actions. 


We have now done what we set out to do. There is a still a bug in the 
system, however. If someone is clever enough to press the STOP and 
RESTORE keys at the same time, our program will be interrupted anyway! 
The STOP test routine at address $F66E is also called in the NMI routine, 
though it does not use the vector $0328, so pressing the STOP key will be 
recognized. 


7.5.2 Disable STOP-RESTORE combination 


If this combination is pressed on the keyboard, the NMI service routine 
is called. NMI stands for Non-Maskable Interrupt--an interrupt is generated 
which cannot be disabled with the SEI command. 


But there is a vector for this routine also in the zero-page area. The 
vector responsible for the NMI routine is found at address $0318 and points 
to the NMI routine in the kernal at address $FAFO. 


If you do not want a BASIC warm-start to be executed when the 
STOP-RESTORE key combination is pressed, you must set the NMI vector 
to the end of the NMI routine. It is advisable to set the vector to $FA62, 
since this jumps to the IRQ return routine, reseting the registers and 
executes an RTI. 


The following BASIC command is necessary to redirect the NMI 
routine: 
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POKE DEC(0318"),98 : REM REDIRECT NMI 


After you have integrated this POKE command into your program 
(together with the STOP-key disable) it is impossible for anyone to exit 
your program unless they build a RESET switch on the user or expansion 
port, but this too can be intercepted... 


7.5.3 The IRQ vector 


The IRQ routine in the kernal is called every 1/60 of a second. The CIA 
is responsible for generating this interrupt with its timers. The vector for 
the IRQ routine is found at address $0314 and normally points to the kernal 
address $FA65. If you want to link into the IRQ routine, for your own 
sprite control, or to change the border color every second, etc., in can be 
done in this way. 


Redirect the IRQ vector to your own routine and jump to the 
“remaining” kernal IRQ routine after executing yours. But be careful when 
you redirect the IRQ vector. The interrupts must be disabled when changing 
the vector or the computer may crash. 


Here is a short example program which changes the border color of the 
40-column screen by one color code every 60th IRQ call. 


02000 78 SEI ;Disable interrupts 
02001 aA9 0C LDA #$0C ;Store low byte of new 
02003 8D 14 03 STA $0314 ;IRQ routine in vector 
02006 A9 20 LDA #$20 ;Store high byte of new 
02008 8D 15 03 STA $0315 ;IRQ routine in vector 
0200B 58 CLI sEnable int. again 
0200C E6 FD INC SFD ;Increment counter 
O200E A5 FD LDA SFD 7Get counter 

02010 C9 3¢C CMP #$3C 760 already? 

02012 DO 07 BNE $201B ;Not yet reached 

02014 EE 20 DO INC $D020 ;Increment border color 
02017 A9 00 LDA #$00 ;And counter again 
02019 85 FD STA SFD ;Set to zero 


0201B 4C 65 FA JMP S$FA65 ;Remaining IRQ routine 


This routine is enabled by calling the enable routine at address $2000. 
This is done by: 
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SYS DEC("2000") 


Now the color of the border is changed at regular intervals. This is one 
example (even though trivial), of what you can do with the IRQ routine. 


7.5.4 Disabling the BASIC interrupt 


As we mentioned in the chapter on the VIC chip, it can be very 
annoying when the interpreter is always getting in the way. There is a way 
around this. The interrupts stop working if you tell the interpreter not to 
jump to the BASIC IRQ routine. This can be done at address $0A04. If bit 
0 is set, the BASIC IRQ routines for graphics and sound are executed. If 
we clear this bit, these routines will no longer be executed and the sprites 
will stop moving, etc. 


This is a welcome option for all machine language programmers who 
want to program the sprites themselves. The text/graphic mode is not 
affected by all of this; it is still switched automatically. This is because this 
switch occurs in the kernal IRQ routine. If, for example, you want to enable 
the graphic mode, but don't want to use the BASIC commands, you must 
either make corresponding changes in the zero-page addresses, or you must 
sneak into the kernal routine. 


To demonstrate the effect of this disabling, first define a sprite and 
enable it: 


SPRITE 1,1,2,0,1,1 : REM TURN SPRITE 1 ON 
MOVSPR 1, 90#9 : REM MOVE SPRITE 1 


Whatever your sprite may look like, it is now moving across the screen. 
If you now try to write to the VIC registers and change the appearance or 
the position of the sprite, you will see a brief flash on the screen and then 
the sprite will do what it wants or what the operating system wants. 


The sprites can be stopped once and for all by clearing bit 0 in address 
$0A04. This is done with the following instruction: 


POKE DEC("0A04"), PEEK(DEC("0A04")) AND 254 


The sprite stops where it is and moves no further. Now the VIC chip 
can be manipulated without interference. 
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7.5.5 Positioning the cursor 


You will often want to position the cursor at a given location on the 
screen/window from within BASIC. Unfortunately, there is no command 
which does this. You can only set the graphic cursor at a position X,Y by 
means of the LOCATE command. Of course this positioning is possible by 
outputting cursor-movement codes, but this method is: 


a) slow, 
b) memory-consuming, and 
c) cumbersome 


We offer you a way of positioning the cursor by calling the kernal 
routine that sets the cursor position. Normally the cursor line is passed in 
the X-register and the column in the Y-register. You can also pass these 
parameters as (optional) parameters in the SYS command. 


As you can probably gather from the kernal listing, the routine for 
setting the cursor position is found at address $CC6A. Since we want to set 
the cursor position and not determine it, we can skip the carry-flag test at the 
start of the routine. We will use address $CC6C as the entry point. 


The syntax for positioning the cursor looks like this: 
BANK 15: SYS DEC("CC6C"),,<line>,<column> 


The first line and the first column in the window is line zero, column 
zero. The two commas are required before the <line>. 


As an example of how you can make use of this positioning routine, 
take a look at the following program: 


10 REM *** DEMO PROGRAM FOR CURSOR POSITIONING *** 
30 CL=40-40* (PEEK (DEC ("D7")) :REM 40 OR 80 COL? 

40 PRINT CHR$(147);: REM CLEAR SCREEN 

50 X=INT(RND (TI) *24): REM LINE 

60 Y=INT(RND (TI) *CL) : REM COLUMN 

70 BANK 15: SYS DEC("CC6C"),,X,Y 

75 PRINT "xX" 

80 GET GS: IF GS="" THEN 50 
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7.6 The Z-80 


As you already know, there is a Z-80A built into your C-128. Most 
Z-80 fans will be interested in finding out how to switch this processor on. 
Here's a quick answer. The currently-active processor can be selected in bit 
O of the mode configuration register. If this bit 0 is set, the Z-80 is 
activated. A set bit means that the 8502 is working. If one switches to the 
Z-80 in this manner, the computer will never return from this mode. 


In the C-128 there is a ROM containing 4K of Z-80 code. After 
power-up or RESET this Z-80 code is executed, meaning that the Z-80 is 
enabled. This ROM is located at $D000, but is mirrored down to $0000 for 
the Z-80. After a RESET, the Z-80 begins its work at address $0000. This 
ROM cannot be read by software. 


In section 7.6.1 the first part of this ROM disassembled. We will not 
present a complete listing. It should be noted that these 4K bytes do not 
really have anything to do with CP/M itself, but only with booting CP/M. 


After the configuration ($3E) has been selected, a test is made to see if 
there is a cartridge ((GAME or /EXROM line set) in the expansion port. If 
this is the case, control is passed to this cartridge. First, the 64 mode is 
enabled and the 8502 is activated. 


If there is no cartridge in the expansion port, the Commodore key is 
tested. If you hold down the Commodore key during power-up or RESET, 
the 64 mode is entered directly, without making a BOOT attempt and 
without having to enter GO 64. If the Commodore key is not pressed, the 
various memory areas are copied, in the common area at $FFDO. It should 
be noted that the Z-80 as well as 8502 code is copied. After both routines 
are copied, control is passed to the (just-copied) routine at $FFEO. In this 
routine the 8502 is enabled and control is again passed to our "normal" 
operating system. If the Z-80 is enabled by the programmer, processing 
continues here (at address $FFEE). And it is precisely here that we find the 
interface. If you replaces the RST 8 with a JMP command, the Z-80 can be 
made to execute your own Z-80 program. 


Let's go through a very simple example. We want to enable the Z-80 


and change a memory location through Z-80 assembly language. This 
machine language program is to be located at address $3000: 
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3E 3F LD A,$3F ;Select configuration 

32 00 FF LD (SFFOO),A;Set configuration 

3E 1E LD A,S$1E ;Any value 

32 00 22 LD ($2200),A;Write in mem loc $2200 

C3 EO FF JMP' SFFEO ;And enable the 8502 again 


We'll enter the Z-80 codes at address $3000 with the monitor. Use the 
M command to do this. 


M 3000 
>03000: 3E 3F 32 00 FF 3E 1E 32 00 22 C3 EO FF 


We must not forget to change the jump at $FFEE or otherwise the 
(normal) RST 8 will be executed. A jump to our routine must be placed at 
address $FFEE. We must insert the following three bytes at this address: 


M FFEE 
>FFEE: C3 00 30 


Now we must write a routine in 8502 code which enables the Z-80 and 
continues after the return from the Z-80 execution. The routine looks like 
this: 


SEI ;Disable interrupts 

LDA #$3E ;Configuration byte 

STA SFFOO ;Store 

LDA #$B0 ;Enable Z-80 in the 

STA $D505 ;Mode configuration register 
NOP ;Delay (buffer) 

BRK 7End, return to monitor 


Enter this routine with the assembler at address $2100. Set the memory 
location $2200 to zero with the monitor and start the whole routine with: 


G 2100 


The computer returns immediately to the monitor. Read memory 
location $2200 and you will see that this address contains the value $1E. 
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7.6.1 The Z-80-ROM 


Here is the first section of the Z-80 ROM, with comments: 


KAKKKERKKKKERKKRKEKKKK KK KKK K KERR RKKKEKKEK RST OO (cold start) 


0000: 3E 3E LD A,$3E Configuration byte(RAM,I/O) 
0002: 32 00 FF LD (SFFO0),A Inconfiguration register 
0005: C3 3B 00 JP $003B Remainder of cold start 


KAR KKK KKK KKK K KKK RRA K KKK KKK KK KKKKKKKKKKAKEEEKK RST 08 


0008: 31 77 3C LD SP,$3C77 
000B: 3E 3F LD A,$3F 


000D: C3 8c 01 JP $018C Remainder of RST 08 


KARA K KKK KAR KK KKK RKEKKRKKKKEKKKEKKKK KKK KKK RST 10 


0010: El POP HL Return address from stack 
0011: 6E LDL, (HL) Low byte of the return address 
0012: C3 20 00 JP $0020 Jump to RST 20 routine 
0015: 00 NOP Fill bytes 

0016: 00 NOP 

0017: 00 NOP 


KKK KEK KEK KKKK KEK KK KAEKKKKKKKKKKKKKKKKKEKKEKE RST 18 


0018: El POP HL Return address from stack 
0019: 6E LDL, (HL) Low byte of return address 
001A: C3 28 00 JP $0028 Jump to RST 28 routine 
001D: 00 NOP Fill bytes 

O01E: 00 NOP 

O01F: 00 NOP 


KAKKA KEK KKK KARR KK EKA KKKKKERKKEEKKEKKKKKKEK RST 20 


0020: 3A OF FD LD A, ($FDOF) 
0023: AT AND A 
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0024: 28 02 JR 2,$+4 >$0028 
0026: 2c Inc L 
0027: 2c INC L 


KKK KKK KKK RK KKK KK E KKK KK KREKKKKKEKK KKK KKKKKK RST 28 


0028: 26 01 LD H,$01 
002A: TE LD A, (HL) 
002B: 23 INC HL 
002Cc: 66 LD H, (HL) 
002D: 6F LD L,A 
002E: E9 JP (HL) 
002F: 00 NOP 


KKEKKKKKKKKKKKKKKKEKKEKKEKKKKKKKKKKKKKKKKKEKK RST 30 


0030: 30 35 JR NC,$+55 >$0067 
0032: 2F CPL 

0033: 31 32 2F LD SP, $2F32 

0036: 38 35 JR C,$+55 >$006D 


KHRKKK KKK KR KKK KKK ERK KKKKKKEKKKKKKKKKK KKK KKK RST 38 


0038: C3 FD FD JP $FDFD Continue RST 38 at $FDFD 


KHKKKKKKKKKKEKEKEKEKEKKKKKKKKKKKKKKKKKKKKK RST OQ Contn'd 


003B: 01 2F DO LD Bc,$p02F Register 47 of VIC Chip 


(keyboard) 
003E: 11 FC FF LD DE,$FFFC Write $FF in the keyboard 
0041: ED 51 OUT (C),D No extension keys 
0043: 03 INC BC Register 48=clock register 
0044: ED 59 OUT (C),E Set to $FC -> 1 MHz mode 
0046: 01 05 D5 LD BC,$D505 Mode config. register 
0049: 3E BO LD A,$BO Test /EXROM and /GAME 
004B: ED 79 OUT (C),A Enable 128 mode 
004D: ED 78 IN A, (C) Mode config. register 
004F: 2F CPL Read again and negate 
0050: E6 30 AND $30 /EXROM or /GAME set? 
0052: 28 05 JR 2Z,$+7 >$0059 No, then no cartridge 
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rn 


JOO RK Rk Enable 64 mode and pass 


Control to the cartridge 
0054: 3E Fl LD A,$F1 Enable 8502 and select the 
0056: ED 79 OUT (C),A 64 mode 
0058: C7 RST $00 And execute cold start 
0059: 01 OF DC LD BC,$pcoF Select CRB reg. in CIA1 
005C: 3E 08 LD A,$08 And then stop 
0O5E: ED 79 OUT (C),A Timer B as well as 
0060: OD DEC C Timer A of 
0061: ED 79 OUT (C),A CIA 1 
0063: OE 03 LD C,$03 DDRB--data direction reg. 
0065: AF XOR A For port B: Set all bits 
0066: ED 79 OUT (C),A to Input 
0068: OD DEC C Pointer to DDRA and 
0069: 3D DEC A Put all bits to 
006A: ED 79 OUT (C),A Output. 
006C: OD DEC C Decrementing BC causes it 
006D: OD DEG:-C to Point to port A 
006E: 3E 7F LD A,$7F Write $7F to port A (See 
0070: ED 79 ou (C),A also Keyboard matrix) 
0072: 03 INC BC Pointer to port B (input) 
0073: ED 78 IN A, (C) And read 
0075: E6 20 AND $20 Mask out Commodore key 
0077: 01 05 D5 LD BC,$D505 Pointer for mode config reg 
OO7A: 28 D8 JR 2Z,$-38 >$0054 Key pressed> 64 mode 


007C: 21 B4 OF LD HL,$OFB4 Load the MMU reg. with the 
OO7F: 01 OA D5 LD BC,$D50A Values at 


0082: 16 OB LD D,$0B $OFAA 

0084: TE LD A, (HL) Note that the 

0085: ED 79 OUT. (C)7A 11 MMU registers 

0087: 2B DEC HL Are loaded with the values 
0088: OD DEC C At $0FB4 downwards! 
0089: 15 DEC D 

OO8A: 20 F8 JR NZ,$-6 >$0084 End of the loop 


008c: 21 1A OD LD HL,$0D1A Copy the area from $0D1A 
008F: 11 00 11 LD DE,$1100 To$1100 

0092: 01 08 00 LD BC,$0008 Copy eight bytes 

0095: ED BO LDIR (8502 code!) 

0097: 21 E5 OE LD HL,$0EE5  Alsocopy the area 

009A: 11 D0 FF LD DE,$FFDO From $0EE5S to the common 
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009D: 01 1F 00 LD BC,$001F Areaat $FFDO 

00AO: ED BO LDIR Copy 31 bytes 

00A2: 21 00 11 LD HL,$1100 $1100 as jump vector 
0OA5: 22 FA FF LD ($FFFA),HL Copy jump vector in 
0OA8: 22 FC FF LD (S$FFFC),HL All four addresses 

OOAB: 22 FE FF LD (S$FFFE),HL Including address 

OOAE: 22 DD FF LD ($FFDD),HL $FFDD (just copied!) 
00B1: C3 EO FF JP SFFEO And jump to the Z-80 part 


The following section is copied to $FFDO at the start and contains 8502 
code to switch over to the Z-80 mode: 


KKAKKKKKKKKKKKKKKKKKRKKKKKKK Also copy to $FFDO 


OEE5: 78 SEI Disable interrupts 

OEE6: AQ 3E LDA #$3E Configuration index 

OEE8: 8D 00 FF STA S$FFO0 Set configuration index 
OEEB: AQ BO LDA #$B0 Enable Z-80 

OEED: 8D 05 D5 STA $D505 Write to mode config. register 
OEFO: EA NOP Delay 


OEF1: 4C 00 30 UMP $3000 Jump to continuation 
OEF4: EA NOP 


The jump at address $0EF1 is changed or replaced by a RETURN in 
most cases. 


The following section--again in Z-80 mnemonics--is also copied to 
$FFEO. The RST 0 routine jumps to this address when it is done. Then the 
computer is again in the 8502 mode. If the Z-80 is re-enabled, the Z-80 
continues at precisely the same location (NOP). 


KAKKKAAKKKKKKKKAEKKEKKKEEKKEKEKK This area is copied to $FFEO 


OEF5: F3 DI Disable interrupts 

OEF6: 3E 3E LDA #$3E Configuration index 

OEF8: 32 00 FF STA $FFOO Into configuration register 
OEFB: 01 05 D5 LD BC,$D505 Mode configuration register 


OEFE: 3E Bl LD A,$B1 Enable 8502 

OF00: ED 79 ouT (c),A Into mode config. register 
OF02: 00 NOP Delay 

OFO3: CF RST $08 Continuation 
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The address $0F03 is found at address $FFEE after the copy. If you 
want to run your own Z-80 program, you must define a jump to your 
routine at this point. In our example, our Z-80 program is located at address 
$3000. We must then branch to this routine at address $FFEE: 


FFEE: C3 00 30 JMP $3000 branch to routine 


To enable the Z-80 in 8502 assembly language, you should call the 
routine at address $FFDO. To enable the 8502 in Z-80 assembly 
language,you should call the routine at $FFEO to enable the 8502 when the 
Z-80 is running. 


7.7 Boot Sector and Boot Routine 


Those of you who have worked with an IBM PC are well aware of the 
advantage of a boot sector. The first thing to clarify is what a "boot" has to 
do with a modern computer like the C-128. The answer is not a difficult 
one. As an article of clothing, the boot is the "lowest part" of a person. It 
has the actual contact to the ground on which we walk and stand. The boot 
sector of a computer is similar. It is also the lowest part of a program, the 
connection between the computer program and the machine. 


When you turn your C-128 on, you will notice that the disk drive 
(assuming you have one) makes some noises and then is quiet. Even when 
you have inserted a disk, the disk drive always runs before the computer 
responds. 


The reason for this action is that the computer tries to load this so-called 
"boot sector". This sector can be used to load a program as soon as the 
computer is turned on, without the user having to press a single key. The 
boot sector can also be a program of its own, which is then started 
automatically. This sector has many uses, but in order to make full use of it, 
it is important to be familiar with the internal structure of the sector and the 
action of the boot routine. 


Since the boot routine is controlled by the operating system and cannot 
search the entire diskette for such a sector, there is only one pre-determined 
place on the diskette that can be used as a boot sector. This is: 


Side 1, track 01, sector 00 
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But be careful since this sector is also physically the first data block on 
a diskette, it's possible that this space is already used by other files. Before 
you install a boot sector on a diskette, you should always check to see if this 
sector is already occupied. 


In order to be able to understand the makeup of the boot sector, you 
should become familiar with the operation of the boot routine. This kernal 
routine performs the following steps: 


1) A block-read command to track 1, sector 0 is constructed in the DOS 
buffer of the expanded zero page. 


2) The command is executed and the block read (provided a formatted disk 
is in the drive) is loaded into the cassette buffer. 


3) The first three bytes of the block are checked to see if they contain the 
required identification code for a boot sector. This identification code is 
CBM. If this code is not present, the boot routine is stopped. 


4) The four bytes following the CBM code are loaded into four zero-page 
pointers. Generally these 4 bytes are set to the value $00. The first two 
bytes can contain a starting address, which has nothing to do with the 
address at which the program is to be loaded. The third byte is the 
corresponding configuration index of the start address. But all of the 
first three entries are ignored if the fourth byte contains the value $00. It 

‘ contains the number of blocks, in addition to the boot sector, that are to 
be loaded from the disk. 


5) Independent from whether the block counter in the boot block is set or 
not, the bytes following these four address and control bytes are read 
and displayed on the screen via the BSOUT routine. Here the screen 
can be cleared or an appropriate boot-up message can be displayed. 
This character output continues until the computer comes across a byte 
with the value $00. 


6) Now the control bytes read in step 4 have a meaning. If the block 
counter is set to zero, this routine is skipped. If this is not the case a 
new command string is formed in the DOS buffer which instructs the 
drive to load another boot block from the diskette. The determination of 
this boot block is quite simple. The sector number is incremented by 1. 
If the sector number is greater than 20 (there is a maximum of only 21 
sectors per track, numbered 0-20), the track number is incremented by 
1 and the sector number is reset to 0. A block-read command to read 
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7) 


8) 


9) 


this block is executed, whereby the block read is stored at the address 
and configuration created by the first three bytes. The memory address 
of the following boot blocks is incremented and the block counter is 
decremented by 1. This is done until the block counter is counted down 
to zero. 


The boot routine then returns to the code following the text constants (if 
present) in the original boot sector in the cassette buffer. A filename, as 
indicated in the disk directory, may reside here. Except the fact that the 
characters of the filename are not displayed on the screen, all of the 
bytes here are read until the boot routine encounters the $00 terminating 
code. The length of the filename is recorded in a counter. 


Now we come to another option. If the length of the filename in the 
counter is a value other than zero, the characters "0:" are prefixed to the 
filename. Then the filename counter is incremented by 2, and a branch 
is made to the kernal LOAD routine in order to read this program into 
memory. If this happens, or if the length of the filename is zero, the 
boot routine goes back to behind the code $00 indicating the end of the 
filename. 


The bytes following the filename are interpreted as a machine language 
program and the boot routine passes control to this program. From this 
point on, the programmer is responsible for starting the program 
loaded, or for loading another program, or for branching to another of 
the boot blocks. | 


If you make note of the above steps when creating your own boot 


sectors, you will soon see that it is not difficult, provided you know what 
the operating system expects. Here again are the most important points and 


instructions: 

Bytes 0,1,2 : CBM identification code 

Bytes 3,4: Memory address for the following boot sectors 

Byte 5: Configuration index for the following boot sectors 
Byte 6: Block counter for the number of following boot sectors 


Byte 7 to 1st terminating code ($00): boot message 
Name of the program to load, followed by the second terminator ($00) 
Your own machine language program entry 


Address of the boot sector: Side 0, track 1, sector 0 
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The ROM listing is probably the most important tool for the real 
machine language programmer. For those of you who don't know what we 
mean by the term "ROM listing," it is simply this; the operating system is 
found in ROM. If this operating system is disassembled, the result is called 
a ROM listing. 


The real art is not in reading the operating system and disassembling 
it, but in documenting it. The documentation should make it simpler for the 
reader to make use of the individual routines. You can find more 
information about the most important kernal routines in Chapter 7. 


The entire operating system comprises a total of 44Kbytes in the 
Commodore 128. 28K of this is for the BASIC and the other 16K is for the 
kernal. This book documents the kernal. A complete documentation of the 
whole 44K would far exceed the capacity of a single book. 


The kernal contains the most important elementary routines which the 
computer needs to display characters on the screen, decode the keyboard, 
control the cassette recorder, etc. 


Below are some of the abbrevations used in the the ROM listings. 


pntr. pointer disp. display 
krnl. _kernal addr. address 
w/ with f/ from 

clr clear dev. device 
acc. accumulator sys. system 
char. character subt. subtract 
inc. increment dec. decimal 
decr. decrement Z-P _—_ zero page 
y-reg. y-register x-reg. x-register 
rout. routine # number 
prgm program ctrl. control 
cmd. command max. maximum 
crsr. cursor bnk. _ bank 
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8.1 ROM Listings avise@ fF Ki soe 


KKKKKKKKEKKKKKEKREKKKKKKKKKKKKKKK 


BO00: 
BOO3: 
BO06: 
B009: 


4c 
4C 
4c 
20 


21 BO 
09 BO 
B2 BO 
7D FF 


JMP 
JMP 
JMP 
JSR 


$B021 
$B009 
$BOB2 
$FF7D 


KKRKKKKKEKKKKKKKKKKRKKKKKKKKKKK 


BOOC: 


KEKKKKEKKKEKEKKEKRKKKKEKKKKKKKKKKKK 


B014: 


BO15: 


BO17: 


BO19: 
BOI1A: 
BO1c: 
BO1D: 


BOIF: 


OD 42 52 45 41 4B 07 00 


68 
85 
A2 
68 
95 
CA 
10 
30 


02 
05 


03 


FA 
25 


PLA 
STA 
LDX 
PLA 
STA 
DEX 
BPL 
BMI 


* $02 


# $05 


* $03,X 


$B019 


$B046 


KKKKEKKKEKKKKEKEKKEKKKKKKKKKKKKKKKK 


BO021: 
B023: 
BO26: 


B028: 
BO2C: 
BO2E: 
B030: 
B032: 
B034: 
BO36: 
BO38: 
BO3A: 


AQ 
8D 
85 
85 
85 
A9 
AQ 
85 
84 
AQ 
85 
20 


00 
00 FF 
06 
07 
05 
00 
BO 
04 
03 
OF 
02 
7D FF 


# $00 
SFFOO 
* $06 
$07 
$05 
$00 
$BO0 
$04 
$03 
SOF 
$02 
SFF7D 


* te + FF SE HE OH OF 
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Monitor entry vectors 
Regular monitor entry 
Monitor BREAK entry 
Exmon monitor entry 
Kernal PRINT: string output 


Initial monitor message 
produced by BREAK entry 


<C/R> BREAK <Bell> 


Monitor initalization after 
BREAK entry 
Place BANK no. on stack in 
appropriate zero-page byte 
Get the contents of x-reg, y-reg, 
accumulator, processor status 
& program counter from stack & 
put in corresponding zero-page 
bytes. 
Jump to general initialization 


Initialization for regular entry 


Load configuraton register with 
$00 and enable all system ROMs 
Clear zero-page memory for acc. 
Clear Z-P memory for x-reg 
Clr memory for processor status 
Load Acc.- lo-addr for monitor 
Load Y-reg with hi-addr monitor 
Acc in memory: prgm counter lo 
Y-reg in memory: prgm cntr hi 
Set Z-P memory for BANK# at 
$0F-Krnl+BASIC,RAM 0, I/O 
Kernal PRINT: string output 
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KKK KKK KEKE KK KKK KK KKK KERRIER K ERK Text constants for initial monitor 
message 


BO3D: OD 4D 4F 4E 49 54 4F 52 <C/R> MONITOR 
B045: 00 


KKKKKKKEKAK KKK KEK KK KER ARK RK KKK General monitor initalization 


B046: D8 CLD Reset decimal mode 
B047: BA TSX Store stack pntr in X-reg 
B048: 86 09 sTxX * $09 and in memory for stack pointer 
BO4A: A9 CO LDA # $CO Sys/control messages enabled 
BO4C: 20 90 FF JSR $FF90 Kernal SETMSG:Sys/ctrl-messages 
BO4F: 58 CLI All system interrupts enabled 
KHKKKKEKRK KKK KKAKKAKRKEAKE RK KEK KK Monitor command: R 

(Register contents) 
B050: 20 7D FF JSR $FF7D Kernal PRINT: output string 


KAKKKKKKKKKKKKKKEKKKKKKKKKKKKKK Text constants for processor 
memory 


B053: OD 20 20 20 20 50 43 20 C/R PC SR AC XR YR SP C/R 
BO5B: 20 53 52 20 41 43 20 58 

B063: 52 20 59 52 20 53 50 OD 

BO6B: 3B 20 1B 51 00 ; <Esc - Q> 


KARKKKKAK KKK KKK KKK KKK KKAKK RAK KK Output contents of registers, st 
stacks, & prgm cntr status 


BO70: AS 02 LDA * $02 Get current BANK # in acc. 
BO072: 20 D2 B8 JSR S$B8D2 Acc.= 2-byte ASCII: hi=A,lo=X 
BO75: 8A TXA ASCII for lower nibble in Accu 
BO76: 20 D2 FF JSR $FFD2 Kernal BSOUT: output a char 
BO79: AS5 03 LDA * $03 Z-P memory for PC hi in accu 
BO7B: 20 C2 B8 JSR $B8C2 Acc in 2-byte ASCII and output 
BO7E: AO 02 LDY # $02 Displ. points to ZP byte - PC Lo 
BO80: B9 02 00 LDA $0002,Y PC Lo, P, A, X, Y, S in Accu 
BO83: 20 A5 B8 JSR $B8A5 Acc output as 2-byte 

; ASCII+<BLANK> 
BO86: C8 INY Increment displ. 
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BO87: CO 08 CPY # $08 
BO89: 90 F5 BCC $B080 
BO8B: 20 B4 B8 JSR $B8B4 
BO8E: A2 00 LDX # $00 
BO90: 86 7A STX * S7A 


BO92: 20 CF FF JSR $FFCF 
BO95: 9D 00 02 STA $0200,X 


BO98: E8 INX 

BO99: EO Al CPX # SA1 
BO9B: BO 1F BCS $BOBC 
BO9D: C9 OD CMP # SOD 
BOOF: DO Fl BNE $B092 
BOA1: A9 00 LDA # $00 


BOA3: 9D FF 01 STA SO1FF,X 
BOA6: 20 E9 B8 JSR $B8E9 


BOA9: FO EO BEQ $BO08B 
BOAB: C9 20 - CMP # $20 
BOAD: FO F7 BEQ SBOA6 
BOAF: 6C 2E 03 JMP ($032E) 
BOB2: A2 15 LDX # $15 
BOB4: DD E6 BO CMP S$BOE6,X 
BOB7: FO 0C BEQ $BO0C5 
BOB9: CA DEX 

BOBA: 10 F8 BPL $BOB4 


BOBC: 20 7D FF JSR $FF7D 


KREKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


BOBF: 1D 3F 00 


KRKEKEKEKKKKEKKKKEKKEKKKKEKKKKKKKKKKKK 


BOC2: 4C 8B BO JMP $B08B 


KREKKKKKKRKKKKEKKKKKKKKKKKEKKKKKK 


BOC5: EO 13 CPX # $13 
BOC7: BO 12 BCS $BODB 
BOC9: EO OF CPX # SOF 
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Bytes $04-$09 already output? 
no, then read next byte 
Linefeed + clear rest of line 
Displacement pntr, input buffer 
reset to 0 
Kernal BASIN: read out char 
& put in monitor input buffer 
Displ. increment to input buffer 
Have 160 chars been printed? 
yes, then output error message 
<RETURN3> entered? 
no, then wait for next character 
When <RETURN> entered,mark 
command-string end with $00. 
Test input buffer for cmd end, 
If <:>,<?>, cmd end, wait input. 
Was character a <SPACE> ? 
Read next character. 
Vector to MONITOR routine 
Number of keywords in X-reg 
compared with keyword table. 
If found, go to keyword table 
pointer -- decrement by 1, until 
entire table is searched 
Kernal PRINT: output 


? constant for monitor error 
messages 
<Crsr Right> ? 
Return to input wait loop 


jump to input wait loop 


Establish monitor command 
addresses 


Is keyword <L>, <S>, <V>? 
yes, then perform task 
Is keyword a conversion char? 
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BOCB: BO 13 BCS $BOE0O 
BOCD: 8A TXA 

BOCE: OA ASL A 

BOCF: AA TAX 

BODO: BD FD BO LDA §$BOFD,X 
BOD3: 48 PHA 

BOD4: BD FC BO LDA S$BOFC,X 
BOD7: 48 PHA 

BOD8: 4C A7 B7 JMP $B7A7 


KAEKKKKKKKKKKKKKKKKEKKKKKKKKKKKK 


BODB: 85 93 STA * $93 
BODD: 4C 37 B3 JMP $B337 
BOEO: UMP $B9B1 


4C Bl B9 


KKKKEKKKEKKKEKKKKEKKKKKKKKKKKKKKKK 


BOE3: 6C 00 0A JUMP (S$0A00) 


KKEKKKKKKKKKKKKKEKKKEKKEKKKKKKKKK 


BOE6: 41 43 44 46 47 48 4A 4D 
BOEE: 52 54 58 40 2E 3E 3B 24 
BOF6: 2B 26 25 4C 53 56 


KAEKKKKKKKKKKKEKKKKKEKKEKKKKKKKKKK 


BOFC: 05 B4 ($B406) 
BOFE: 30 B2 ($B231) 
B100: 98 B5 ($B599) 
B102: DA B3 ($B3DB) 
B104: D5 Bl ($B1D6) 
B106: CD B2 ($B2CE) 
B108: DE Bl ($B1DF) 
B10A: 51 Bl ($B152) 
B1l0c: 4F BO ($B050) 
B10E: 33 B2 ($B234) 
B110: E2 BO ($BO0E3) 
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($,+,&,%) YES--then do task. 
Keyword number to accu and 
multiplied by 2 


This value as offset in X-reg 


Monitor routine (hi) addr. got 

& treated as quasi-RTS on stack. 
Monitor routine (hi) addr. got 

& treated as quasi RTS on stack. 
Command parameter utilization. 


Release LSV and conversions 


Store char of command keyword 
Execution of L,S,V commands 
Execution of conversion chars. 


Monitor command: X (Exit) 


Vector: BASIC warm-start 
($4003) 


Monitor keywords 


ACDFGHIJIM 
RTX@.>;$ 
+&%LSV 


Addresses of monitor 
commands (-1) 


A = Assemble 
C = Compare 
D = Disassemble 
F = Fill 

G = Go to 

H = Hunt 

J = Jump 

M = Monitor 
R = Register 
T = Transfer 
X = Exit 
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B112: 8F BA ($BA90) @ = Disc Command 
B114: 05 B4 ($B406) . = Assemble 

B116: AA Bl ($B1AB) > = Modify Memory 
B118: 93 Bl ($B194) ; = Modify Register 


KKKKKKKKRKKKKK KKK KKK KEKE KKK KE AK LDA routine for acc from any 
bank FETVEC=bank byte of the 


OP3 operand 
B11A: 8E B2 0A STX SOAB2 X-reg temporary storage 
B11D: A6 68 LDX * $68 Bank no. taken from OP3 
B11F: A9 66 LDA # $66 FETVEC addr. for indfet in A 
B121: 78 SEI All system interrupts disabled 
B122: 20 74 FF JSR SFF74 Kernal INDFET:LDA (fetvec), Y 
any bank 
B125: 58 CLI All system interrupts enabled 
B126: AE B2 0A LDX S$O0AB2 X-reg loaded with saved value 
B129: 60 RTS Return from subroutine 
KKKKKK KK KKK KKK KKK ER ERK KERKEK KK STA routine places acc contents 
in any bank. 
STAVEC=OP3 bank byte 
B12A: 8E B2 0A STX SOAB2 X-reg temporary storage 
B12D: A2 66 LDX # $66 Load STAVEC (lo addr) into 
B12F: 8E B9 02 STX $02B9 X-reg and put Indsta routine in 
STAVEC 
B132: A6 68 LDX * $68 Get bank # from ‘from' OP3 
B134: 78 SEI All system interrupts disabled 
B135: 2077 FF JSR $FF77 rete INDSTA:STA(stavec), Y 
ank 
B138: 58 CLI All system interrupts enabled 
B139: AE B2 0A LDX S$0AB2 X-Reg loaded with stored value 
B13C: 60 RTS Return from subprogram 
KHAKKKKKKKKKKK KK KKK KEKEKKAKKKEKE CMP routine--acc contents w/ 
specified bank. 


CMPVEC=OP3 bank byte 


B13D: 8E B2 0A STX SOAB2 X-reg temp. storage 
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B140: 
B142: 
B145: 
B147: 
B148: 


B14B: 
B14c: 
B14D: 
B150: 
B151: 


58 
08 
AE 
28 
60 


66 
C8 
68 


TA FF 


B2 OA 


02 


LDX 
STX 
LDX 
SEI 

JSR 


CLI 
PHP 
LDX 
PLP 
RTS 


# $66 
$02C8 
* $68 


SFF7A 


$SOAB2 


KKKEKKKEKKEKKEKKKKEKKKKKKKKKKKKKKKE 


B152: 
B154: 
B157: 
B15A: 
B15c: 
B15E: 
B160: 
B1l62: 
B165: 
B167: 
B169: 
B16B: 
B1é6D: 
B16E: 
B170: 
B172: 
B174: 
B175: 
B177: 
B1I7A: 
B17C: 
BI7F: 
B181: 
B183: 
B185: 


BO 
20 
20 
90 
A9 
85 
DO 
20 
90 
A2 
24 
10 
E8 
46 
66 
66 
CA 
DO 
20 
FO 
20 
AQ 
24 
10 
OA 


08 
01 
A7 
06 
0B 
60 
15 
OE 
2A 
03 
D7 
01 


62 
61 
60 


F7 
El 
12 
E8 
08 
D7 
01 


B9 
B7 


B9 


FF 


Bl 
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Load CMPVEC addr in Y-reg & 
CMPVEC mem for Indemp 
Get bank # ‘from’ OP3 

All system interrupts disabled 
Kernal INDCMP: 
CMP(CMPVEC), Y bank 

All system interrupts enabled 
Secure result of CMP 

X-Reg loaded w/ secured value 
Set back comparison result 
Return from subprogram 


Monitor command: M 
(Memory display) 


No parameter, then set default 
Copy contents of OP1 into OP3 
Get 'to' in OP1 

Convey from-to step number 
Load OP1 (lo) with default 

load step count 12 

Goto exec. of memory display 
Difference: OP1-OP3 in OP1 

If 'from'>'to' then ERROR 

Step # divided by 2 three times 
Check for 40/80-col. mode 
40-col, to step division 

80-col, to step number 

Div. of OP1 (3-byte operand) 
by 2, for memory display values 
of 8 or 16. 

Division # for step #-1 

OP1 divided by 8/16 

Kernal STOP: test for STOP key 
STOP pressed, go EXIT routine 
Display a line of memory 

+ constant from ‘from’ operand 


Check for 40/80-col. mode 


40-col, add constant of 8 OK 
80-col, add constant *2 (=16) 
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B186: 
B189: 
B18C: 
B18E: 
B191: 


20 
20 
BO 
4c 
4c 


52 B9 
22 B9 
E9 

8B BO 
BC BO 


$B952 
$B922 
$B177 
$B08B 
SBOBC 


KRKKKKKKKKKKKKKEKKKKKKEKKKKKKKKKK 


B194: 


B197: 
B199: 
B19C: 
B19E: 


BIAO: 


B1A3: 
B1A4: 
B1A6: 
B1iA8: 


20 


AO 
20 
BO 
A5 
99 
C8 
co 
90 
4c 


74 BY 


00 
A7 B7 
OA 
60 
05 00 


05 
Fl 
8B BO 


JSR 


LDY 
JSR 
BCS 
LDA 
STA 
INY 
CPY 
BCC 
JMP 


$B974 


# $00 
SB7A7 
$B1A8 
* $60 


$0005,Y 


# $05 
$B199 
$B08B 


KKKEKKKKKEKKKKKKEKKKEKKEKKEKKKKKKKKK 


B1AB: 
B1AD: 


B1BO0: 
B1B2: 


B1B5: 


B1B7: 
B1B9: 
B1BC: 
B1BD: 
B1IBF: 
B1Cl: 
B1C3: 
B1C5: 
B1C7: 
B1c9: 


BO 
20 
AO 
20 
BO 
A5 
20 
C8 
24 
10 
co 
90 
co 
90 
20 


1c 
01 B9 
00 
A7 B7 
12 
60 
2A Bl 


D7 
04 
10 
ED 
08 
E9 
7D FF 


BCS 
JSR 
LDY 
JSR 
BCS 
LDA 
JSR 
INY 
BIT 
BPL 
CPY 
BCC 
CPY 
BCC 
JSR 


$B1C9 
$B901 
# $00 
SB7A7 
$B1C9 
* $60 
$B12A 


* SD7 
$B1C5 
# $10 
$B1B2 
# $08 
$B1B2 
S$FF7D 
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Addition: Acc contents + OP3 
Subtraction: OP1 - constant <1> 
Loop, 'til OP1 <0 

Jump to input wait loop 

<?> Output and go to input wait 
loop 


Monitor command : ; 
(Modify reg) 


C=0--OP1 in ZP 
bank/PCHi/PCLo 

Set displacement for zero page 
Get OP1's modifier 

Carry set=identifier for exit rout. 
Get lo-add from OP1 as modifer 
Modify status;B,A,X,Y stat. ptr. 
Display Z-P CPU memory +1 
All CPU memory changed? 

no, then jump to next routine 
Jump to input wait loop 


Monitor command: 
> (Modify mem) 


No parameter, then no change 
Copy contents of OP1 into OP3 
Set modify display ptr. to 0 
Get modify value in OP1 

No other value=print line 

Get value from OP1 (low) 

STA routine in any bank 
Display pntr for modify byte+1 
Test for 40/80-col. mode 

Max. param reading of 40 chars. 
16 chars. read/changed? 

no, goto next parameter 

8 chars read/changed? 

no, get next parameter 

Kernal PRINT: output string 
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KKKKKKKKKKKEKKEKKEKEKKKKKKKKKKKKEK 


Bicc: 1B 4F 91 00 


KKEKKKKKKKKKKKAEKKKEKKKKKKKKKKKKE 


B1D0: 20 E8 Bl JSR §$B1E8 


B1D3: 4C 8B BO JMP S$BO08B 


KKKKKKKKKKKKKKKKEKEKKKKKKKKKKKKK 


B1lD6é: 20 74 B9 JSR $B974 
B1D9: A6 09 LDX * $09 
B1DB: 9A TXS 

Bipc: 4C 71 FEF JMP $FF71 


KEKKKKKKKKEKKEKKKKEKREKKKKKKKKKKKE 


BIDF: 20 74 B9 JSR $B974 
B1E2: 20 6E FF JSR SFF6E 
B1E5: 4C 8B BO JMP $B08B 


KHEKKKKKKKKKKEKKEKKKEKKKEKKRKEKKKKEKEE 


B1E8: 20 B4 B8 JSR $B8B4 
B1EB: A9 3E LDA # $3E 
B1ED: 20 D2 FF JSR $FED2 
B1FO: 20 92 BB JSR $B892 
B1F3: AO 00 LDY # $00 
B1F5: FO 03 BEQ SBI1FA 
B1F7: 20 A8 B8 JSR S$B8A8 
BIFA: 20 1A Bl JSR $B11A 
B1IFD: 20 C2 B8 JSR $B8C2 
B200: C8 INY 

B201: CO 08 CPY # $08 
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Clear insert, RVS, quote modes 
<Esc -O> <Crsr Up> 
Display changed memory line 


Outputs:<8/16 hex values, 8/16 
ASCII 
Jump to input wait loop 


Monitor command : G (Go to) 


=0 OP1 in zeropage 
bank/PCHi/PCLo 
Load X w/ Z-P byte for stack ptr 
Modify stack ptr. w/ X-reg. 
Krnl JMPFAR: JMP to any bank 


Monitor command : J (Jump to) 


C=0 OP1 in zero page 
bank/PCHi/PCLo 
Kernal JSRFAR:JSR 


Jump to input wait loop 


Display '<',8/16 hex values & 
8/16 ASCII characters for 
memory display 


Line feed + clear rest of line 
Load acc with '<' char. 

Kernal BSOUT: output one char 
Output OP3 in 5-byte ASCII 
Loop # set to 0 

1 hex value skip space 

Output <SPACE> <CR> 
<Crsr-up>.LDA from any bank 
A displayed as 2-byte ASCII 
Loop+displacement #+1 Cc 
8 hex values printed? 


Abacus Software 


128 Internals 


————————S SS 


B203: 
B205: 
B207: 
B209: 
B20B: 


KRHKEKKKKKKKKKKKEKKKKKKKKKKKKKKKE 


B20E: 


KHEKKKKKKKKKKKKKKKKKKKKKKKKKKKE 


B211: 
B213: 
B216: 
B217: 
B219: 
B21B: 
B21C: 
B21E: 
B220: 
B223: 
B224: 
B226: 
B228: 
B22A: 
B22C: 
B22E: 
B230: 


KREKKKKKKKKKKKKKKKEKKKKKKKKKKEKK 


B231: 
B233: 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


B234: 


24 
10 
co 
90 


D7 
02 
10 
EC 


20 7D FF 


3A 12 00 


AO 
20 
48 
29 
cg 
68 
BO 
A9 
20 
C8 
24 
10 
co 
90 
co 
90 
60 


2c 


00 
1A 


7E 
20 


02 
2E 
D2 


D7 
04 
10 
E7 
08 
E3 


AQ 00 


A9 80 


Bl 


FF 


LDA 


-Byte 


* $D7 
$B209 
# $10 
$B1F7 
$FF7D 


# $00 
$B11A 


# S7E 
# $20 


$B220 
# $2E 
SFFD2 


* $D7 
$B22C 
# $10 
$B213 
# $08 
$B213 


# $00 
$2Cc 


LDA # $80 


Test for 40/80-col. screen 
Output to 40-col. 

16 hex values printed? 

Get next hex value 

Kernal PRINT: output string 


Constant: colon, RVS-on 
: <Rvs On> 
Output 8/16 bytes in ASCII 


Loop and display counter to 0 
LDA from any bank 

Put char. on stack 

Mask bit 7 (no RVS char.) 
Check for ctrl char. 

Get char. from stack again 

Not ctrl char, then normal output 
Load accumulator with <.> 
Kernal BSOUT: outpt character 
Loop & displacement counter +1 
Check for 40/80-col. screen 
Continue display if 40-col. 

16 characters printed?(80-col) 
no, output next char. 

8 characters printed? (40-col) 
no, print next char. 

Return to subroutine 


Monitor command : C 
(Compare) 


Set char. for COMPARE 
skip to $B236 


Monitor command : T 
(Transform) 


Set TRANSFORM marker 
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B236: 85 93 STA * $93 and put into cmd byte memory 
B238: A9 00 LDA # $00 Direction ptr for C/T cmd to $00 
B23A: 8D B3 0A STA _ S$O0AB3 (=forward) set ($80=backward) 
B23D: 20 83 B9 JSR $B983 Get 'til' & step cnt in OPH,OP2 . 
B240: BO 05 BCS $B247 Carry set= error marker found 
B242: 20 A7 B7 JSR $BT7A7 Get ‘to'/‘with' (in OP1) 

B245: 90 03 BCC $B24A 'To'/‘with' operand is OK 
B247: 4C BC BO JUMP S$BOBC <?> displayed go input wait loop 
B24A: 24 93 BIT * $93 Was it transferred (-) or com- 
B24c: 10 2c BPL $B27A pared (+) in CMP routine? 
B24E: 38 SEC Set carry for subtraction 

B24F: A5 66 LDA * $66 Test whether contents of both 
B251: E5 60 SBC * $60 bytes (addr lo), (addr hi) are 
B253: AS 67 LDA * $67 larger than operand OP3, or the 
B255: E5 61 SBC * $61 address bytes of OP1. 

B257: BO 21 BCS $B27A 'To'<'from'=direction OK 
B259: A5 63 LDA * $63 Add the contents of the 3-byte 
B25B: 65 60 ADC * $60 operand OP2 in locations 

B25D: 85 60 STA * $60 $65-$64-$63 to the contents of 
B25F: A5 64 LDA * $64 the 3-byte operand OP1 

B261: 65 61 ADC * $61 in locations $62-$61-$60. 
B263: 85 61 STA * $61 Put any addition overflow 
B265: AS 65 LDA * $65 results in OP1. 

B267: 65 62 ADC * $62 Store addition result 

B269: 85 62 STA * $62 in OP1 

B26B: A2 02 LDX # $02 Copy the contents of the 

B26D: BD B7 0A LDA $0AB7,X 3-byte help operands 

B270: 95 66 STA * $66,X in memory locations 

B272: CA DEX $0AB9-$0AB8-$0AB7 into the 
B273: 10 F8 BPL $B26D operand OP3 ($68-$67-$66) 
B275: A9 80 LDA # $80 When 'til' is greater than ‘from’ 
B277: 8D B3 0A STA $0AB3 set direction marker to backward 
B27A: 20 B4 B8 JSR $B8B4 <CR> & clear rest of line 

B27D: AO 00 LDY # $00 Set displacement ptr. to 0 

B27F: 20 EL FF JSR $FFE1 Kernal STOP: check STOP key. 
B282: FO 47 BEQ $B2CB If STOPkey goto Exit routine. 
B284: 20 1AB1l JSR $B11A LDA from any bank 

B287: A2 60 LDX # $60 $60 is lo-addr. ‘with’ 'til’-OP1 
B289: 8E B9 02 STX $02B9 Set STAVEC at this addr. 
B28C: 8E C8 02 STX $02C8 Set CMPVEC at this addr. 
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B28F: A6 62 LDX * $62 Load X-reg w/ bank byte 'til' 
B291: 78 SEI All system interrupts disabled 
B292: 24 93 BIT * $93 Was it transfer or comparison? 
B294: 10 03 BPL $B299 Compare in appropriate routine 
B296: 2077 FF JSR SFF77 Kernal INDSTA: 
STA(STAVEC), Y any bank 
B299: A6 62 LDX * $62 Load X w/ bank byte 'with' 
B29B: 20 7A FF JSR SFF7A Kernal INDCMP: 
CMP(CMPVEC),Y any bank 
B29E: 58 CLI. All system interrupts enabled 
B29F: FO 09 BEQ $B2AA ‘Equal’ not given, and 
B2Al: 20 92 B8 JSR $B892 OP3 output as 5-byte ASCII 
B2A4: 20 A8 B8 JSR _  SB8A8 <SPACE>,<C/R>,<crsr-up> 
B2A7: 20 A8 B8 JSR $B8A8 output 
B2AA: 2C B3 0A BIT $O0AB3 Test for transfer direction 
B2AD: 30 OB BMI S$B2BA Send new return address 
B2AF: E6 60 INC * $60 Fwd. transfer of 'til' address 
B2B1: DO 10 BNE $B2C3 raised by 1 and monitored 
B2B3: E6 61 INC * $61 for overflow 
B2B5: DO 0c BNE $B2C3 If hi-addr. overflow, then error 
B2B7: 4C BC BO JMP S$BOBC <?> output - to input wait loop 
B2BA: 20 22 B9 JSR _ $B922 Subtraction: OP1 - constant <1> 
B2BD: 20 60 B9 JSR $B960 Subtraction: OP3 - constant <1> 
B2cO: 4C C6 B2 JMP S$B2C6 Jump to subtraction OP2 - <1> 
RKKKKKKKKKKKKEKERKKKKKEKKKK KKK KK Set step number & ‘from' 
B2C3: 2050 B9 JSR $B950 Addition: constant <1> to OP3 
B2C6: 20 3C B9 JSR $B93C Subtraction: OP2 - constant <1> 
B2C9: BO B4 BCS $B27F Loop until all steps done 
B2CB: 4C 8B BO JMP S$BO8B Jump to input wait loop 


KKKKKKKKKKKKAKK KKK KKKKKRKKKKKK KK Monitor command : H (Hunt) 


B2CE: 20 83 B9 JSR $B983 Get 'til' step value in OP1 

B2D1: BO 61 BCS $B334 Carry set=identifier - found error 
B2D3: AO 00 LDY # $00 Display hunt char in CMP buffer 
B2D5: 20 E9 B8 JSR S$B8E9 _ Read a char from input buffer 
B2D8: C9 27 CMP # $27 Was character read a <.> ? 
B2DA: DO 16 BNE $B2F2 no, don't look for string 
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B2DC: 20 E9 B8 JSR $B8E9 Read a character to input buffer 
B2DF: C9 00 CMP # $00 Has command-end been found? 
B2E1: FO 51 BEQ $B334 yes, then output error <?> 
B2E3: 99 80 0A STA $0A80,Y Put char in CMP buffer 
B2E6: C8 INY Displace CMP buffer +1 
B2E7: 20 E9 B8 JSR S$B8E9 Test input buffer for cmd-end, 
B2EA: FO 1B BEQ $B307 <i>, <?>; if so, execute HUNT 
B2EC: CO 20 CPY # $20 32 in CMP buffer? 
B2EE: DO F3 BNE S$B2E3 no, get next CMP value for 
B2F0: FO 15 BEQ $B307 hunt routine 
B2F2: 8c 00 01 sTY $0100 Store displ. in CMP buffer 
B2F5: 20 A5 B7 JSR $B7A5 Put CMP operand in OP1 

(like CHRGOT) 
B2F8: A5 60 LDA * $60 Transmit OP1 byte into 
B2FA: 99 80 0A STA $0A80,Y¥ CMP buffer 
B2FD: C8 INY Displace CMP buffer +1 
B2FE: 20 A7 B7 JSR $B7A7 Get more CMP values in OP1 
B301: BO 04 BCS $B307 NONE FOUND-execute HUNT 
B303: CO 20 CPY # $20 32 values in CMP buffer? 
B305: DO Fl BNE $B2F8 No, get next CMP value 
B307: 84 93 STY * $93 Store cnt of CMP buffer values 
B309: 20 B4 B8 JSR S$B8B4 <CR> & clear rest of line 
B30C: AO 00 LDY # $00 Display 1st char in CMP buffer 
B30E: 20 1ABl JSR $B11A LDA from any bank 
B311: D9 80 0A CMP $0A80,Y CMP w/ char from CMP buffer 
B314: DO OE BNE $B324 Unequal--on to next step 
B316: C8 INY Display next CMP buffer value 
B317: C4 93 cPy * $93 All individual comps run? 
B319: DO F3 BNE $B30E No, next step of comparison 
B31B: 20 92 B8 JSR $B892 Contents of OP3, 5-byte ASCII 
B31E: 20 A8 B8 JSR _ $B8A8 <SPACE>, <CR>, <crsr-up> 
B321: 20 A8 B8 JSR SB8A8 <SPACE>, <CR>, <crsr-up> 
B324: 20 E1 FF JSR $FFE1 Kernal STOP: check STOP key 
B327: FO 08 BEQ $B331 If STOP, goto Exit routine. 
B329: 2050 B9 JSR $B950 Addition: constant <1> to OP3 
B32C: 20 3C B9 JSR $B93C Subtraction: OP2 - constant <1> 
B32F: BO DB BCS $B30C Loop until all steps done 
B331: 4C 8B BO JMP S$BO08B Jump to input wait loop 
B334: 4C BC BO JMP S$BOBC Output <?> -to input wait loop 
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KKKKKKKKKKKKEKKKKKEKKKKKKKKKKKKE 


B337: AO 01 LDY # $01 
B339: 84 BA STY * SBA 
B33B: 84 B9 STY * $B9 
B33D: 88 DEY 

B33E: 84 C6 STY * $C6 
B340: 84 B7 STY * $B7 
B342: 84 C7 STY * $C7 
B344: 84 90 STY * $90 
B346: AQ OA LDA # SOA 
B348: 85 BC STA * SBC 
B34A: A9 80 LDA # $80 
B34C: 85 BB STA * SBB 
B34E: 20 E9 B8 JSR S$B8E9 
B351: FO 58 BEQ $B3AB 
B353: C9 20 CMP # $20 
B355: FO F7 BEQ $B34E 
B357: C9 22 CMP # $22 
B359: DO 15 BNE $B370 
B35B: A6 7A LDX * STA 
B35D: BD 00 02 LDA $0200,X 
B360: FO 49 BEQ $B3AB 
B362: E8 INX 

B363: C9 22 CMP # $22 
B365: FO 0C BEQ $B373 
B367: 91 BB STA (SBB),Y 
B369: E6 B7 INC * $B7 
B36B: C8 INY 

B36C: CO 11 -CPY # $11 
B36E: 90 ED BCC $B35D 
B370: 4C BC BO JMP S$BOBC 


RREKKKEKKKKKKEKKKKKKKKKKKKKKKKKKK 


B373: 
B375: 


86 7A 
20 EO B8 


STX * S7A 
JSR SB8E9 
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Jumps to monitor commands: 
L = Load, S = Save, V = Verify 


Load Y-reg with $01 

Set device number (1=Datasette) 
Set secondary address (1=write) 
Y-reg counts down to $00 

Set BANK no. for LSV call 
Length of filename set to 0 

Set BANK for addr. of filename 
Clear status byte (0 = all OK) 
Zero-page memory for hi addr. 
of filename loaded w/ $0A 
Zero-page memory for lo addr. 
of Filename w/ $80 (= $0A80) 
Test input buffer; 

If cmd-end; go to input loop 
Was char. read a <SPACE>? 
Yes, continue, read next char. 
Was char. a <">? 

No, error in command string 
X-reg loaded w/ display from 
input buffer 

Read 1st" in-buffer(=filename) 
$00 = End of command string 
Input buffer pointer to next char. 
Has 2nd <"> been found? 

Yes, further evaluation 
Filename placed at $0A80 
Counter for filename length + 1 
Filename memory pntr increment 
Filename longer than 16 chars ? 
No, read next character 

Display <?> &go input wait loop 


LSV parameter evaluation after 
2nd <"> 


Input buffer pointer after 2nd " 
Check buffer cmd-end, <:><?> 
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B378: 
B37A: 
B37D: 
B37F: 
B381: 
B383: 
B386: 
B388: 
B38B: 
B38D: 
B390: 
B392: 
B395: 
B397: 
B399: 
B39B: 
B39D: 
B39F: 
B3A1: 
B3A3: 
B3A5: 
B3A8: 


31 
A7 B7 
2c 
60 
BA 
A7 B7 
23 
01 B9 
C6 
A7 B7 
3F 
B4 B8 
60 
61 
93 
53 
D1 
00 
B9 
66 
D8 FF 
8B BO 


BEQ 
JSR 
BCS 
LDA 
STA 
JSR 
BCS 
JSR 
STA 
JSR 
BCS 
JSR 
LDX 
LDY 
LDA 
CMP 
BNE 
LDA 
STA 
LDA 
JSR 
JMP 


$B3AB 
SB7A7 
$B3AB 
* $60 
* SBA 
SB7A7 
$B3AB 
$B901 
* $C6 
$B7A7 
$B3D1 
SB8B4 
* $60 
* $61 
* $93 
# $53 
$B370 
# $00 
* SB9 
# $66 
SFFD8 
$B08B 


KKEKKKKKEKKKKKEKKKEKEKKKKKKKKKKKKKK 


B3AB: 
B3AD: 
B3AF: 
B3B1: 
B3B3: 
B3B5: 
B3B7: 
B3BA: 
B3BC: 
B3BE: 
B3C0: 
B3C2: 
B3C4: 


AS 
cg 
FO 
co 
DO 


- AY 


20 
AS 
29 
FO 
A5 
FO 
20 


93 
56 
06 
4c 
BB 
00 
DS FF 
90 
10 
E8 
93 
AC 
7D FF 


LDA 
CMP 
BEQ 
CMP 


* $93 
# $56 
$B3B7 
# $4C 
$B370 
# $00 
SFFD5 
* $90 
# $10 
$B3A8 
* $93 
$B370 
$FF7D 
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LV can run w/o parameters 
Get parameter from OP1 (dev #) 
No param, goto LV expression 
Get OP1 (lo)(dev address) 
and put in zero page 
Get OP1 parameters (start addr.) 
No param, goto LV expression 
Copy OP1 contents into OP3 
Get bank# in zeropage bank B 
LSV parameters (end addr.) 
No parameter, to LV expression 
Line feed & clear rest of line 
OP1(low) is 'til' value for SAVE 
OP1(hi) is 'til' value for SAVE 
Get command-/keyword 
Was there an <S> for Save ? 
Nogerror, no 'til'forSAVE | 
Load acc with 0, to zero page - 
for secondary addr. 
Bank # ‘from' operand (OP3) 
Kernal SAVESP: Save data 
Jump to input wait loop 


Execute valid LV commands 
Get command-/keyword 
<V> for Verify ? 
Accu <> 0, verify in LOADSP 
<L> for Load 
no, then was it Save <S>? 
u = 0 is load marker in LOADSP 
Kernal LOADSP: Load data 
Load system STATUS in acc 
Mask bit for read error 
No LV error -go input wait loop 
Get char for command/keyword 
No cmd/keyword--then ERROR 
Kernal PRINT: output string 
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Ln 


KHEKEKKKKKKKKKKEKKKKEKKKKEKKKKKKKK 


B3C7: 


20 45 52 52 4F 52 00 


KAKKKKKKKKKEKKEKKKKKKKKKKKKKKKKK 


B3CE: 


4c 8B BO 


JMP 


$B08B 


REKKKKKKKEKKKEKKKKKKKKKKKKKKKKKEK 


B3D1: 
B3D3: 
B3D5: 
B3D7: 
B3D9: 


A6 
A4 
AQ 
85 
FO 


66 
67 
00 
B9 
DO 


LDX 
LDY 
LDA 
STA 
BEQ 


* $66 
* $67 
# $00 
* SB9 
$B3AB 


KKKEKEKKKKKKKKKKKKKKKEKKKKKKKKKKK 


B3DB: 


B3DE: 
B3E0: 
B3E2: 
B3E5: 
B3E7: 
B3EA: 
B3EC: 
B3EE: 
B3F0: 
B3F3: 
B3F6: 
B3F8: 


B3FB: 
B3FE: 
B400: 
B403: 


20 


BO 
A5 
cD 
DO 
20 
BO 
AO 
A5 
20 
20 
FO 
20 
20 
BO 
4c 
4C 


83 


23 
68 
B9 
1c 
A7 
17 
00 
60 
2A 
El 
08 
50 
3c 
EE 
8B 
BC 


B9 


OA 


B7 


Bl 
FF 


B9 
B9 


BO 
BO 


JSR 


BCS 
LDA 
CMP 
BNE 
JSR 
BCS 
LDY 
LDA 
JSR 
JSR 
BEQ 
JSR 


$B983 


$B403 
* $68 
SOAB9 
$B403 
$B7A7 
$B403 
# $00 
* $60 
$B12A 
SFFE1 
$B400 
$B950 
$B93C 
SB3EE 
$B08B 
SBOBC 
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Monitor constant for <ERROR> 
ERROR 

Goto input wait loop after 

Jump to input wait loop 


Extension of LV commands 
w/ device & starting addrs. 


lo-addr. (start addr. in X-reg) 
hi-addr.(start addr. in Y-reg) 
Write sec. address $00 = read 
in zero page mem. for sec. addr. 
to execute LV commands 


Monitor command : F (Fill) 


Get ‘til’ and stepsize in 
OPH,OP2 
Carry set=error output identifier 
Get bank no. from 'from' (OP3) 
Cmp w/ bank # of 'til' operand 
Unequal =error output identifier 
Get cmd parameter (fill value) 
Carry set=error output identifier 
Set display for fill command, 0 
into OP1 (lo) 
STA routine (accu in any bank) 
Kernal STOP: check STOP key 
If pressed, then input wait loop 
Addition: constant <1> to OP3 
Subtraction: OP2 - constant <1> 
Kernal STOP:Test for STOP key 
Jump to input wait loop 
Display <?> &go input wait loop 
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KKKKKKKKKKKEKKKEKKKKKKKK KK KKK KKK Monitor command: A 
(Assemble) 

B406: BO 3A BCS $B442 Carry set=error output identifier 

B408: 20 01 B9 JSR $B901 Copy OP1 to OP3 

B40B: A2 00 LDX # $00 Clear mnemonic buffer display 

B40D: 8E Al 0A STX SOAA1 Bit 0 for compressed cmd code 0 

B410: 8E B4 0A STX S$0AB4 Set loop counter to 0 

B413: 20 E59 B8 JSR $B8E9 Test input buffer for cmd-end, 
<i>, <?> 

B416: DO 07 BNE $B41F Not cmd-end, then go on 

B418: EO 00 CPX # $00 Display still 0, no commands 

B41A: DO 03 BNE SB41F No, continue 

B4ic: 4C 8B BO JMP $BO08B Jump to input wait loop 

B41F: C9 20 CMP # $20 Is char. read a <space>? 

B421: FO E8 BEQ $B40B Yes, read and initialize 

B423: 9D AC OA STA $0AAC,X Put char. in mnemonic buffer 

B426: E8 INX Mnem. buffer display ptr. +1 

B427: EO 03 CPX # $03 3 mnemonic chars. given? 

B429: DO E8 BNE $B413 No, get next char. 

B42B: CA DEX Displ. pointer to last character 

B42Cc: 30 17 BMI $B445 3 characters processed, continue 

B42E: BD AC 0A LDA SO0AAC,X Read 3 mnem. chars backward 

B431: 38 SEC Set carry for subtraction 

B432: E9 3F SBC # $3F Alpha char values; A=1,B=2,etc 

B434: AO 05 LDY # $05 Counter shifted 5x for 1 bit 

B436: 4A LSR A Shift 1 bit of the letter value out 

B437: 6E Al 0A ROR $O0AAL1 of acc into byte pair $AA1-$AA0 

B43A: 6E AO 0A’ ROR S$0AA0 The three mnemonic chars. will 

B43D: 88 DEY be shifted into the byte pair 

B43E: DO F6 BNE $B436 mentioned above and occupy 3 

B440: FO E9 BEQ $B42B sets of 5 bits in these bytes 

B442: 4C BC BO JMP S$BOBC Display <?>; go input wait loop 

B445: A2 02 LDX # $02 Set displacemnt of output buffer 

B447: AD B4 0A LDA SO0AB4 Load loop counter into acc 

B44A: DO 30 BNE $B47C If not equal to 0, then skip 

B44Cc: 20 CE B7 JSR $BT7CE Get cmd parameters in OP1 

B44F: FO 29 BEQ S$B47A If 0, then test for cmd-end 

B451: BO EF BCS $B442 Carry set=char. for error output 

B453: AQ 24 LDA # $24 Load <$> into acc and bring to 
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B455: 9D AO OA STA S$O0AA0,X output buffer 


B458: E8 INX Displace output buffer +1 

B459: A5 62 LDA * $62 Get OP1's bank byte 

B45B: DO E5 BNE $8442 >O=error output indicator 

B45D: AO 04 LDY # $04 Hex division factor 

B45F: AD B6 0A LDA SOAB6 Get number base of operand 
B462: C9 08 CMP # $08 Compare w/ <8> 

B464: 90 05 BCC $B46B <8--get high addr. (OP1) 

B466: CC B4 0A CPY SOAB4 Cmp. with loop counter 

B469: FO 06 BEQ $B471 Equal, then skip 

B46B: AS 61 LDA * $61 Get high addr. byte of OP1 
B46D: DO 02 BNE $B471 If not equal to 0, then skip 
B46F: AO 02 LDY # $02 Set loop counter for null bytes 
B471: A9 30 LDA # $30 Load ASCII <0> into acc and 
B473: 9D AO OA’ STA $0QAA0,X store in assem-cmd temp storage 
B476: E8 INX Incr. assem-cmd length counter 
B477: 88 DEY Loop count for OP nullbytes -1 
B478: DO F9 BNE $B473 Loop till counter=0 

B47A: C6 7A DEC * $7A Display pntr on previous char. 
B47c: 20 E9 B8 JSR $B8E9 Test input buffer for cmd-end, 
BA47F: FO 0E BEQ $B48F If cmd-end, then to expression 
B481: C9 20 CMP # $20 Char a <SPACE>? 

B483: FO C2 BEQ $B447 Yes, new parameter expression 
B485: 9D AO OA STA S$OAA0,X in asmblr-cmd temp. storage 
B488: E8 INX Command >9 chars? 

B489: EO OA CPX # SOA No, then get next char. 

B48B: 90 BA BCC $B447 Yes, then display <?> error 
B48D: BO B3 BCS $B442 Asmblir-cmd OP2 (low) is length 
B48F: 86 63 STX * $63 Byte length of cmd in OP2 (low) 
B491: A2 00 LDX # $00 Load X-reg w/ 0 and bring up 
B493: 8E Bl 0A STX SOAB1 Cmd-comparison loop counter 
B496: A2 00 LDX # $00 Load X-reg w/ 0 and use as 
B498: 86 9F STX * $9OF display for asmblr-cmd buffer 
B49A: AD Bl 0A LDA S$OAB1 Get cmd-comp. counter 

B49D: 20 59 B6 JSR $B659 Addr. & length for cmd counter 
B4A0: AE AA OA LDX SOAAA Get cmd length pointer (0,1,2) 
B4A3: 86 64 STX * $64 and store in OP2 (high) 

B4A5: AA TAX Test result for mnem. compare 
B4A6: BD 61 B7 LDA $B761,X Byte at mnemonic keyword tab 2 
B4A9: 20 7F B5 JSR S$B57F Compare w/ byte in asm buffer 
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B4aCc: 
B4AF: 
B4B2: 
B4B4: 
B4B6: 
B4B8: 
B4BB: 
B4BD: 
B4CO: 
B4C2: 
B4C4: 
B4C6: 
B4c9: 
B4CA: 
B4CC: 
B4CF: 
B4D1: 
B4D4: 
B4D7: 
B4DA: 
B4DC: 
B4DF: 
B4E0: 
B4E2: 
B4Ek4: 
B4E7: 
B4EA: 
B4EC: 


B4EE: 
B4F0: 
B4F3: 
B4F6: 
B4F8: 
B4FA: 
B4FC: 
B4FE: 
B500: 
B502: 
B503: 


21 B7 
7EF BS 


AB OA 


AA 0A 


7¢ B5 


AA 0A 
14 B7 
7F BS 
1A B7 


TF BS 


7¢ BS 
7¢ BS 


8B BS 
AB OA 


$B721,X 


SB57F 
# $06 
# $03 
$B4CC 
SOAAB 
$B4CC 
SOAAA 
# SE8 
# $30 
SB4E4 
$B57C 


SB4BD 
SOAAA 
SB4DF 


$B714,X 


$B57F 


$B71A,X 


S$B4DF 
SB57F 


$B4B4 
SB4EA 
$B57C 
$B57C 
* $63 
* $OF 


$B4F3 
$B58B 
$0AAB 
$B52A 
* $64 
# $9D 
$B521 
* $60 
* $66 


* $61 


211 


Byte at mnemonic keyword tab 1 
Compare w/ byte in asm buffer 
Loop counter for address cmp. 
3 loops completed? 

No, then only addressing cmp. 
Get cmd length pointer (0,1,2) 
Handle as a 1-byte cmd 

Get addressing key 

Compare w/ $E8 

ASCII for <0> in acc 

carry set, in corresponding eval. 
Compare w/ byte in asm buffer 
Decrement cmd length cnt by 1 
If not equal to 0, then skip 
Shift addressing key 

Bit=0, then skip cmp. 

Get addressing char 1 at tab 
Compare w/ byte in asm buffer 
Get addressing char 2 at tab 

If $00, then no comp. 
Compare w/ byte in asm buffer 
Addressing loop counter -1 
Not equal to 0, continue loop 
0, continue evaluation 
Compare w/ byte in asm buffer 
Compare w/ byte in asm buffer 
Get stored length of asmblr cmd 
Compare w/ display 
(asmblr-cmd buffer) 

If equal then skip 

Increment cmd-loop counter 
Get cmd length pointer 

If 0, then a 1-byte cmd 

Get hi-addr. byte from OP2 | 
and compare it with $9D 

Not equal, then skip 

Get low operand addr. and 
subtract low-cmd addr. 

Put result in X-reg 

Get high operand addr. and 
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B505: 
B507: 
B509: 
B50B: 
B50D: 
B50F: 
B511: 
B512: 
B513: 
B515: 
B517: 
B519: 
B51A: 
B51B: 
B51C: 
B51F: 
B521: 
B524: 
B527: 


B528: 


B52A: 
B52D: 


B530: 


B533: 


E5 
90 
DO 
E0 
BO 
90 
A8 
c8 
DO 
EO 
90 
CA 
CA 
8A 
AC 
DO 
B9 
20 
88 
DO 
AD 
20 
20 
20 


AB OA 


5F 00 
2A Bl 


Bl OA 
2A Bl 
AD B8 
7D FE 


SBC 
BCC 
BNE 
CPX 
BCS 
BCC 
TAY 
INY 
BNE 
CPX 
BCC 
DEX 
DEX 
TXA 
LDY 
BNE 
LDA 
JSR 
DEY 
BNE 
LDA 
JSR 
JSR 
JSR 


* $67 
$B511 
$B579 
# $82 
$B579 
$B519 


$B579 
# $82 
$B579 


$OAAB 
$B524 


SOO5F,Y 


$B12A 


$B521 
$OAB1 
$B12A 
$B8AD 
SFF7D 


KRKKEKKKKKKKKKEKEKKKKEKKEKKKKKKKKKKK 


B536: 


41 20 1B 51 00 


KRRKKKKKKKKEKKKKEKKKKKKKEKKKKKKKEKK 


B53B: 
B53E: 
B541: 
B544: 
B547: 
B549: 


DC B5 
AB 0A 
AB OA 
52 B9 
41 

4A 03 


JSR 
INC 
LDA 
JSR 
LDA 
STA 


$B5DC 
$O0AAB 
$OAAB 
$B952 
# $41 
$034A 
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subtract high-cmd addr. 

To evaluate of backward branch 
"BRANCH OUT OF RANGE",<?> 
Check whether branch is valid 
If off by more than $82 give <?> 
In corresponding expression 
Copy accu into y-reg and 
increment from 0 to 1 

Unequal to 0, output <?> error 
Compare to $02 

Less than 2, then output <?> 
Addr. balance: decrement X-reg 
Addr. balance: decrement X-reg 
Bring value to accumulator 

Get cmd-length counter in Y-reg 
<>0, then skip 

Get value from operand OP1 
STA routine for acc in any bank 
Decrement cmd length pntr by 1 
<>0--skip 

Get value from OP1 

STA routine for acc in any bank 
<CR><crsr-up> 

Kernal PRINT: output string 


Monitor constant: 
assemble output 


A <SPACE> <Esc - Q> 


Generate chars. and address 
stagger for next assembly 
procedure 


Output address and get byte 
Increment opcode Ingth ptr. by 1 
Add length to 'from' operand 
Addition: acc contents + OP3 
Load accu with <A> (assemble) 
in procedure buffer for next line 


Abacus Software C-128 Internals 


B54C: A9 20 LDA # $20 Load accu with <SPACE> 
B54E: 8D 4B 03 STA $034B in procedure buffer for next line 
B551: 8D 5103 STA $0351 in procedure buffer for next line 
B554: AS 68 LDA * $68 Bank byte of ‘from' addr. in acc 
B556: 20 D2 B8 JSR _ $B8D2 Acc in 2-byte ASCII: hi=A,lo=X 
B559: 8E 4C 03 sTX $034C In procedure buffer for next line 
B55C: AS 67 LDA * $67 hi-addr byte(OP3)of ‘from’ addr 
B55E: 20 D2 B8 JSR _ $B8D2 Acc in 2-byte ASCII: hi=A,lo=X 
B561: 8D 4D 03 STA $034D In proc. buffer for next line 
B564: 8E 4E 03. STX S$034E In proc. buffer for next line 
B567: A5 66 LDA * $66 lo-addr byte(OP3)of 'from' addr 
B569: 20 D2 B8 JSR $B8D2 Acc in 2-byte ASCII: hi=A,lo=X 
B56C: 8D 4F 03 STA $034F in proc. buffer for next line 
B56F: 8E 50 03 STX $0350 in proc. buffer for next line 
B572: A9 08 LDA # $08 Keyboard buffer set for 

B574: 85 DO STA * $DO 8 chars (=length of proc. line) 
B576: 4C 8B BO JMP S$BO8B Jump to input wait loop 

B579: 4C BC BO JMP $BOBC Display <?> , go input wait loop 
KAKKKKKKKKKKKKKEKKKKKKKKKKKKKK Compare acc contents w/ a char. 


from asmblr-cmd temp. storage 


B57C: 20 7F B5 JSR $BS57F Execute following routine twice 
B57F: 8E AF OA STX SOAAF Store x-reg contents 

B582: A6 9F LDX * $9F Load asmbr-cmd display pointer 
B584: DD AO OA CMP $0AA0,X Cmp w/ char from asmblr buffer 
B587: FO OA BEQ $B593 If equal, then exit 

B589: 68 PLA Get RTS addr. from stack 
B58A: 68 PLA Get RTS addr. from stack . 
B58B: EE Bl 0A INC $O0AB1 Increment cmd-comparison loop 
B58E: FO E9 BEQ $B579 >255--output errors 

B590: 4C 96 B4 JMP $B496 Jump to correspond expression 
B593: E6 9F INC * $9F Asmblr-cmd display pointer +1 
B595: AE AF OA LDX S$OAAF Return old X-reg contents 
B598: 60 RTS Return to subroutine 
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KKKKKKKKKKKKK KKK KKKE KEK KKK KKK Monitor command: D 
(Disassemble) 
B599: BO 08 BCS $B5A3 No valid '‘from' operand 
B59B: 20 01 B9 JSR $B901 Copy OP1 to OP3 
B59E: 20 A7 B7 JSR  $B7A7 Get OP1 operand 
B5Al: 90 06 BCC $B5A9 If valid, then send step number 
B5A3: AQ 14 LDA # $14 Standard step value $14 
(=20 bytes to disassemble) 
B5A5: 85 60 STA * $60 in low step counter 
B5A7: DO 05 BNE $B5AE Uncond jump to disasmblr. 
B5A9: 20 0E B9 JSR $B90E Store diff of OP1-OP3 in OP1 
B5AC: 90 23 BCC $B5D1 Carry clear=marker for error out 
B5AE: 20 7D FF JSR $FF7D Kernal PRINT: string output 
KKK KKK KKK KKK KKK KK EK KER KEE KEKE Monitor constant: Clear 1 line 
B5B1: OD 1B 51 00 <Cr> <Esc - Q> 


KKKKKKKKKKKKKKKKKRKKRAEKKEKRKEK KEKE Disassembly dependent on 
‘from' operand & step size 


B5B5: 20 E1 FF JSR $FFE1 Kernal STOP: test for STOP key 
B5B8: FO 14 BEQ $B5CE If pressed, goto input wait loop 
B5BA: 20 D4 B5 JSR $B5D4 Prep. and output disasmbld line 
B5BD: EE AB OA INC SOAAB Increment opcode Igth pntr by 1 
B5CO: AD AB OA LDA SOAAB and for 'from' addr. calc in acc 
B5C3: 20 52 B9 JSR $B952 Addition: acc contents + OP3 
B5C6: AD AB OA LDA SOAAB Lgth ptr. for step size calc in acc 
B5C9: 20 24 B9 JSR $B924 Subtraction: OP1 - acc contents 
B5CC: BO EO BCS S$B5AE Continue disassem. if necessary 
B5CE: 4C 8B BO JMP §$BO8B Jump to input wait loop 
B5D1: 4C BC BO JUMP S$BOBC Display <?>; go input wait loop 
B5D4: AQ 2E LDA # $2E Load accu with <.> 
B5D6: 20 D2 FF JSR $FFD2 Kernal BSOUT: char. output 
B5D9: 20 A8 B8 JSR _ $B8A8 <SPACE><CR><crsr-up> 
B5DC: 20 92 B8 JSR _ $B892 Output ‘from’ addr.(OP3) as 
5-byte ASCII 
B5DF: 20 A8 B8 JSR _ $B8A8 <SPACE><CR><crsr-up> 
B5E2: AO 00 LDY # $00 Load displacement for FETCH 
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B5E4: 20 1ABl JSR $B11A LDA routine from any bank 

B5E7: 20 59 B6 JSR  $B659 Validity check of opcode bytes 

B5EA: 48 PHA Put result on stack 

B5EB: AE AB OA LDX SOAAB Get command length loop 

B5EE: E8 INX Increment length key by 1 

B5EF: CA DEX Decrement length key by 1 

B5FO: 10 0A BPL $B5FC Output cmd value < 0 constant 

B5F2: 20 7D FF JSR $FF7D Kernal PRINT: output string 

KKKKKKKKKKKKKKKKKKKKKKKKKKEKKEK Monitor constants: 3 spaces 

B5SF5: 20 20 20 00 <SPACE><SPACE><SPACE> 

KKK KKK KKK KAKA KKEK KKK KEKE KEKKKR Assembly/disassembly sub. 

B5F9: 4C 02 B6 JMP $B602 Skip LDA for routine 

B5FC: 20 1A Bl JSR $B11A LDA routine for acc - any bank 

B5FF: 20 A5 B8 JSR $B8A5 Output acc as 2-byte ASCII 
+<SPACE> 

B602: C8 INY Increment Y-reg contents by 1 

B603: CO 03 CPY # $03 Compare to $03 

B605: 90 E8 BCC $B5EF <3, then continue loop 

B607: 68 PLA Get result from stack 

B608: A2 03 LDX # $03 Put 3 chars for mnem. output in 

B60A: 20 Al B6 JSR $B6A1 X-reg, and to char. output 

B60D: A2 06 LDX # $06 Initialize loop count with 6 

B60F: EO 03 CPX # $03 After 3 loops, the actual address 

B611: DO 17 BNE $B62A value will be output 

B613: AC AB OA LDY S$OAAB Number of cmd operand bytes 

B616: FO 12 BEQ $B62A No operand bytes, then skip 

B618: AD AA 0A LDA SOAAA Command addr. key 

B61B: C9 E8 CMP # $E8 Check for branch 

B61D: 08 PHP Put carry flag on stack 

B6é1E: 20 1A Bl JSR $B11A LDA routine for any bank 

B621: 28 PLP Reset carry flag 

B622: BO 1D BCS $B641 If carry set, then BRANCH 

B624: 20 C2 B8 JSR $B8C2 Acc conveyed as 2-byte ASCII 

B627: 88 DEY If cmd has two operand bytes, 

B628: DO EE BNE $B618 then expression of the second bit 

B62A: OE AA OA ASL SOAAA is masked by addressing key 
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B62D: 90 OE BCC $B63D Bit not set, skip 

B62F: BD 14 B7 LDA $B714,X Get char. for addr. type 

B632: 20 D2 FF JSR $FFD2 Kernal BSOUT: output one char 
B635: BD 1A B7 LDA $B71A,X Get char. for addr. type 

B638: FO 03 BEQ $B63D Not equal to 0--then output 
B63A: 20 D2 FF JSR $FFD2 Kernal BSOUT: output one char 
B63D: CA DEX Address output loop -1 

B63E: DO CF BNE $B60F All 6 loops out 

B640: 60 RTS Return to subroutine 


KKKRKKKKKKKKKKKKKK RK RE KKREKK KER Address from BRANCH cmd 


B641: 20 4D B6 JSR S$B64D Addr. calc. X=high, A=low 

B644: 18 CLC Clear carry for addition 

B645: 69 01 apc # $01 Add 1 for low-addr. correction 

B647: DO 01 BNE $B64A No overflow skip hi-correction 

B649: E8 INX Add 1 for high correction 

B64A: 4C 9F B8 JMP S$B89F Give acc + X-reg. as 4-bytes 

B64D: A6 67 LDX * $67 Get high addr. of ‘from’ 
operand (OP3) 

B64F: A8 TAY Bring BRANCH offset in x-reg 

B650: 10 01 BPL $B653 BRANCH ‘forward’ continues 

B652: CA DEX Decrement high addr. for 
‘packward'-1 

B653: 65 66 ADC * $66 +branch offest to low addr(OP3) 

B655: 90 01 BCC $B658 No overflow skip hi correction 

B657: E8 INX Overflow correction for hi-addr. 

B658: 60 RTS Return from subroutine 


KKKKKKKKKKKKKK KKK KKKEKKEKRK KKK Determine addressing and length 


of the test code passed in A 
B659: A8 TAY Put test code in Y-reg 
B65A: 4A LSR A Shift bit O out & test 
B65B: 90 OB BCC $B668 If bit O0=0 then OK 
B65D: 4A LSR A Shift & test bit 1 
B65E: BO 17 BCS $B677 If bit 1=1 then no good 
B660: C9 22 CMP # $22 Test whether exit code $89 used 
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B664: 29 07 AND # $07 Mask bits 3-7 

B666: 09 80 ORA # $80 Mask bit 7 in 

B668: 4A LSR A Divide acc contents by 2 

B669: AA TAX and display in X-reg 

B66A: BD C3 B6 LDA $B6C3,X Load byte as addressing ref. tab 
B66D: BO 04 BCS $B673 If remainder left from div., skip 
B66F: 4A LSR A Copy contents of the 

B670: 4A LSR A upper nibble 

B671: 4A LSR A (bits 4-7) into 

B672: 4A LSR A lower nibble (bits 4-3) 

B673: 29 OF AND # SOF Mask out upper nibble (Bit 4-7) 
B675: DO 04 BNE $B67B Not equal 0 is valid 

B677: AO 80 LDY # $80 If code is invalid, load Y w/ $80 
B679: AQ 00 LDA # $00 and acc with $00 

B67B: AA TAX Displacement not transfer to X 
B67C: BD 07 B7 LDA $B707,X Get addressing key from tab - 
B67F: 8D AA OA STA SOAAA and put in $0AAA 

B682: 29 03 AND # $03 Mask out bits 2-7 — 

B684: 8D AB 0A STA SOAAB Store bits 0,1(cmd. length) 
B687: 98 TYA Copy test code in acc 

B688: 29 8F AND # S8F Mask out bits 4,5,6 

B68A: AA TAX Store masked out value in X 
B68B: 98 TYA Copy test code in acc 

B68C: AO 03 LDY # $03 Initialize loop counter with 3 
B68E: EO 8A CPX # $8A Cmp masked-out value w/ $8A 
B690: FO OB BEQ $B69D Equal, then skip 

B692: 4A LSR A Divide acc contents by 2 

B693: 90 08 BCC $B69D If no remainder, then skip 
B695: 4A LSR A Divide acc contents by 2 

B696: 4A LSR A Divide acc contents by 2 

B697: 09 20 ORA # $20 Set bit 5 in acc 

B699: 88 DEY Decrement loop counter by 1 
B69A: DO FA BNE $B696 Not equal to 0, continue loop 
B69C: C8 INY Loop number incremented by 1 
B69D: 88 DEY Decrement loop counter by 1 
B69E: DO F2 BNE $B692 Not equal to 0, divide further 
B6A0: 60 RTS Return from subroutine 


217 


Abacus Software 128 Internals 





KAKKKKKKKK KE KK KARR KER KKK KKK KEKE Prepare and send a char. for 


mnemonic display 
B6A1l: A8 TAY Cmd code as display to Y-reg 
B6A2: B9 21 B7 LDA $B721,Y Get byte from mnemonic table 1 
B6A5: 85 63 STA * $63 and put in OP2 (low) 
B6A7: B9 61 B7 LDA $B761,Y Get byte from mnemonic table 2 
B6AA: 85 64 STA * $64 and put into OP2 (high) 
B6AC: A9 00 LDA # $00 Load accu w/ 0 
B6AE: AO 05 LDY # $05 Shift 5 bits of OP2 2-byte addr. 
B6BO: 06 64 ASL * $64 to the left; put bits into accu © 
B6B2: 26 63 ROL * $63 Loop until all five 
B6B4: 2A ROL A bits are shifted. The 
B6B5: 88 DEY addition of 
B6B6: DO F8 BNE $B6BO the number $3F gives a valid 
B6B8: 69 3F ADC # $3F char or a <?> 
B6BA: 20 D2 FF JSR $FEFD2 Kernal BSOUT: output one char 
B6BD: CA DEX 3 loops for the 3 letters from the 
B6BE: DO EC BNE $B6AC 16-bit value in addr lo/hi in OP2 
B6CO: 4C A8 B8 JMP S$B8A8 <SPACE><CR><crsr-up>:RTS 
KKKKKKKKKKKKKEKRKKK KK KKK KKK KK KK Address reference table 


B6C3: 40 02 45 03 DO 08 40 09 
B6CB: 30 22 45 33 DO 08 40 09 
B6D3: 40 02 45 33 DO 08 40 09 
B6DB: 40 02 45 B3 DO 08 40 09 
B6E3: 00 22 44 33 DO 8C 44 00 
B6EB: 11 22 44 33 DO 8C 44 9A 
B6F3: 10 22 44 33 DO 08 40 09 
B6FB: 10 22 44 33 DO 08 40 09 
B703: 62 13 78 AQ 


KKKKKKKKKKKKKRKKKEKKKREREKKK EKER Address types & length key 


B707: 00 21 81 82 -1/#$ -2/*$ -2/$ -3 
B70B: 00 00 59 4D -1/ -1/($,X)-2 / ($), Y-2 
B70F: 91 92 86 4A *$,X-2 / $,X -3/$,Y -3/($) -3 
B713: 85 *$,Y-2 

B714: 9D .Byte $9D Backspace control code 
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KEKKKKKKKKKKKKKEKKKKEKEKKKKKKKKEKK 


B715: 
B71B: 


2C 29 2C 23 28 24 
59 00 58 24 24 00 


KKEKKEKKKKKKKKKKKKKEKKKKKKKKKKKKK 


B721: 
B729: 
B731: 
B739: 
B741: 
B749: 
B751: 
B759: 


1c 
9D 
00 
24 
00 
AE 
15 
84 


8A 1c 
8A 1D 
29 19 
53 1B 
1A 5B 
AE A8 
9C 6D 
13 34 


23 
23 
AE 
23 
5B 
AD 
9C 
11 


KKKKKKKKKKKEKKKKEKKKKEKKKEKKKKKKKE 


B761: 
B769: 
B771: 
B779: 
B781: 
B789: 
B791: 
B799: 


D8 
54 
00 
74 
00 
44 
1A 
c4 


68 B2 
1A 26 
CA 26 


48 
54 
84 
4A 
A2 
32 
26 
48 


26 
68 
74 
72 
74 
B2 
72 
44 


62 94 88 
44 E8 94 
B4 28 65 
F2 A4 8A 
74 74 72 
00 22 00 
72 88 C8 
44 A2 C8 


KREKKKKKKKKKKKKKEKKKKKKKKKKKKKKK 


B7A1: 


0D 20 20 20 


KRKKKKKKEKKKKEKKKKKKKKKKKKKKKKKKK 


B7A5: 
B7A7: 
B7AA: 
B7AC: 
BUAF: 
B7B1: 
B7B3: 


7A 
CE B7 
16 
E7 B8 
09 
7A 
B4 OA 


DEC 
JSR 
BCS 
JSR 
BNE 
DEC 
LDA 


* STA 
$B7CE 
$B7C2 
SB8E7 
$B7BA 
* STA 
SOAB4 
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Display addressing modes 


<,><)><,><#><(><$> 
<Y>< ><X><$><$><> 


Mnemonic keyword table 1 


BRK PHP BPL CLC JSR PLP BMI SEC 
RTI PHA BVC CLI RTS PLA BVS SEI 
77? DEY BCC TYA LDY TAY BCS CLV 
CPY INY BNE CLD CPX INX BEQ SED 
27? BIT JMP JMP STY LDY CPY CPX 
TXA TXS TAX TSX DEX ??? NOP ??? 
ASL ROL LSR ROR STX LDX DEC INC. 
ORAANDEOR ADC STA LDA CMP SBC 


Mnemonic keyword table 2 


A byte in table 1 returns, 
with the corresponding 

value in table 2, a 

16-bit value coded as a 3- 
character mnemonic. The 16- 
bit argument is divided into 
three sections of 5 bits. 

Bit 0 is unused in coding. 


Monitor constant: 3 spaces 
<CR><SPACE><SPACE><SPACE> 


Test for valid separator between 
the command's operands 


Input buff pntr to previous char. 
Get OP1 operand 

Carry set=error signal 

Renew last-read char. 

If cmd-end, then continue 

Input buff pntr to previous char. 
Get error-recognition flag 
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B7B6: 
B7B8: 
B7BA: 
B7BC: 
B7BE: 
B7CO: 
B7C2: 
B7C3: 
B7C4: 


DO 
FO 
C9 
FO 
C9 
FO 
68 
68 


11 
0D 
20 
0B 
2c 
07 


4c BC BO 


BNE 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
PLA 
PLA 
JMP 


$B7C9 
$B7C7 
# $20 
$B7C9 
# $2C 
$B7C9 


SBOBC 


KAEKKKKKEKKKKKKEKEKKEKKEKKKKKKKKKKKE 


B7C7: 
B7C8: 


38 
24 


SEC 


-Byte $24 


KRAEKKKEKKKEKKEKRKKKEKKKEKKKEKKKEKKKKKEKE 


B7C9: 
BUCA: 
B7CD: 


18 


AD B4 OA 


60 


CLC 
LDA 
RTS 


SOAB4 


KEKKKKKEKKKKKKEKKKKKKKKKKKKKKKKE 


B7CE: 
B7D0: 
B7D2: 
B7D4: 
B7D6: 
B7D9: 


BUDA: - 


B7DB: 
B7DC: 
B7DD: 
B7E0: 
BUE2: 
B7E5: 
B7E7: 
B7E9: 


Ag 
85 
85 
85 
8D 
8A 
48 
98 
48 
20 
DO 
4c 
cg 
FO 
A2 


00 
60 
61 
62 
B4 


E9 
03 
TE 
20 
F4 
03 


OA 


B8 


B8 


# $00 
* $60 
* $61 
* $62 
SOAB4 


SB8E9 
SB7E5 
SB87E 
# $20 
$B7DD 
# $03 
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If not equal to 0, then OK exit 
No valid operand, then error exit 
Was char. read a <SPACE>? 
Valid separator, OK exit 

Was the char. a comma? 

Valid separator, OK exit 

The addresses on the stack are 
cleared, <?> is displayed, and 
prg goes to the input wait loop 


Exit for error in cmd-operands 


Set carry=error signal 
skip to $B7CA 


Command operand/separator OK 


Carry clear=signal for OK 
Load error-recognition help flag 
What appears to be RTS is the 
command entry 


Init. & evaluation of a command 
parameter in OP1 


Load acc w/ $0 for param. init. 
Clear the 3-byte cmd parameter 
No. 1 (OP1), in zero page from 
$62 (highest) to $60 (lowest) 
Temp. memory for error control 
Put X-reg in accumulator 

and save on stack 

Put Y-reg in accumulator 

and save on stack 

Test input buffer for cmd-end, 
<:>,<?>.No end marker, go on 

Exit routine w/ clear-carry 
marker. Was it a<SPACE> ? 
Yes, then read next char. 

Get display for 4 conver chars. 
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B7EB: 
B7EE: 
BUFO: 
B7UF1: 
B7F3: 
BUF4: 
BU7F6: 
BUE9: 
B7FC: 
BUFF: 
B802: 
B804: 
B805: 
B807: 
B809: 
B80B: 
B80D: 
B80F: 
B811: 
B813: 
B816: 
B819: 
B81B: 
B81D: 
B820: 
B822: 
B824: 
B826: 
B828: 
B82B: 
B82C: 
B82E: 
B831: 
B833: 
B835: 
B837: 
B839: 
B83A: 
B83C: 
B83E: 


F5 
06 


F8 


7A 
8A 
8E 
B6é 
E9 
TA 


30 
75 
OA 
06 
07 
10 
6B 
B5 
B5 
61 
SF 
B4 
OA 
OA 
02 
60 
B7 


F8 
B6 
60 
61 
62 
43 


FS 
OA 
22 


BO 


B8 
B8 
OA 
B8 


0A 
OA 


OA 


OA 


OA 


CMP 
BEQ 
DEX 
BPL 
INX 
DEC 
LDY 
LDA 
STA 
JSR 
BEQ 
SEC 
SBC 
BCC 
CMP 
BCC 
SBC 
CMP 
BCS 
STA 
CPY 
BCC 
BEQ 
INC 
CPY 
BNE 
LDX 
LDA 
STA 
DEX 
BPL 
LDX 
ASL 
ROL 
ROL 
BCS 
DEX 
BNE 
CPY 
BNE 


SBOF5,X 
SB7F6 


$B7EB 


* STA 
$B88A,X 
$B88E,X 
$0AB6 
SB8E9 
SB87E 


# $30 
SB87E 
# SOA 
$B813 
# $07 
# $10 
SB87E 
SOAB5 
SOAB5 
SB87C 
$B87C 
SOAB4 
# SOA 
$B82E 
# $02 
* $60,X 
$0AB7,X 


$B826 
$OAB6 
* $60 
* $61 
* $62 
$B87C 


$B831 


# SOA 
$B862 
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Check for conversion (%&+$) 
until conversion char. is found 
Display calc. table - 1 

Loop till table through 

X-reg set to $0 (= HEX) 
Displacement ptr to input buff -1 
Load Y-reg w/ num system base 
Load accu w/ multip. factor 

for the num. system, & store it 
Test inp. buf cmd-end, <:>, <?> 
Exit from operand determination 
Set carry for subtraction 
Convert to fixed-point values 

If char <O then exit 

Was char. a no. between 0-9 ? 
Yes, jump to hex adaptation 
Adaptation of hex numbers A - F 
If value isn't between 0 - F, then 
Exit from operand determ't rtne. 
Store established hex numbers 
Compare base w/ hex value 

If base < char, then error 

If base = char, then error 

Byte for error recognition +1 
Was decimal input chosen ? 

No, then jump to decimal init. 
Set loop counter to 2 

Copy the 3-byte operand (OP1) 
in the 3-byte temp operand for 
decimal address input 
($OAB9=highest, $0AB7= lowest) 
get counter for multip. factor 
3-byte 

operand (OP1) 

multiplied by 2 

If overflow present, then error 
Loop counter mult by 2 -1 

Loop to OP1 multiplication 

Is number base the dec. system? 
No, jump to decimal conversion 
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B840: OF B7 0A ASL $0AB7 Decimal conversion: the 3-byte 
B843: 2E B8 0A ROL SOAB8 temp operand in $AB9 - $AB7 
B846: 2E B9 0A ROL SOAB9 is multiplied by 2 

B849: BO 31 BCS $B87C If overflow occurs, then error 
B84B: AD B7 0A LDA §$0AB7 Addition of 3-byte 

B84E: 65 60 ADC * $60 temp operand in 

B850: 85 60 STA * $60 memory locations 

B852: AD B8 0A LDA SOABB $0AB9-$0AB8-$0AB7 

B855: 65 61 ADC * $61 to contents of 3-byte 

B857: 85 61 STA * $61 operand OP1 under observation 
B859: AD B9 OA LDA S$0AB9 for possible overflow. 

B85Cc: 65 62 ADC * $62 Result of the addition will be 
B85E: 85 62 STA * $62 put into OP1. 

B860: BO 1A BCS $B87C If overflow occurs, then error 
B862: 18 CLC Clear w/ carry (for bin,oct,hex) 
B863: AD B5 0A LDA $0AB5 Get determined char. value 
B866: 65 60 ADC * $60 Add values of least significant 
B868: 85 60 STA * $60 OP1 place 

B86A: 8A TXA Load accumulator with 0 

B86B: 65 61 Apc * $61 Check for overflow by adding of 
B86D: 85 61 STA * $61 least significant OP1 place 
B86F: 8A TXA Load accu with 0 

B870: 65 62 ADC * $62 Check for overflow at 

B872: 85 62 STA * $62 place of OP1 addition 

B874: BO 06 BCS $B87C If overflow occurs, then error 
B876: 29 FO AND # SFO Mask out lower nibble (B. 0-3) 
B878: DO 02 BNE $B87C If top nibble <> 0, then error 
°B87A: FO 83 BEQ $B7FF evaluate next operand position 
KAKKKK KKK KKK ERK RK KKK KEKE REKKK ER Exit param. evaluate w/ error 
B87C: 38 SEC Set carry = error-found marker 
B87D: 24 .Byte $24 Skip to $B87F 

KKK KKKKKK KK KKK EK KERR KEK KEKKEK KA Exit parameter evaluation if OK 
B87E: 18 cic Clear carry = param-OK marker 
B87F: 8C B6 0A STY $0AB6 Store base of number system 
B882: 68 PLA Restore old Y contents from 
B883: A8 TAY stack 
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B884: 
B885: 
B886: 
B889: 


68 
AA 
AD B4 0A 
60 


PLA 
TAX 
LDA 
RTS 


SOAB4 


KKKKKKEKKKEKKEKKEKKKKKKKKKKKKKKKK 


B88A: 


10 OA 08 02 


KRRKKKKEKKKKKEKKKEKKKKKKKKKKKKKKKK 


B88E: 


04 03 03 01 


KRKEKKKKKKKKEKKEKKKRKEKEKKKKKKKKKKKK 


B892: 
B894: 
B897: 
B898: 
B89B: 
B89D: 
B89F: 
B8A0: 
B8Al1: 
B8A4: 


A5 68 

20 D2 B8 
8A 

20 D2 FF 
A5 66 

A6 67 

48 

8A 

20 C2 B8 
68 


LDA 
JSR 
TXA 
JSR 
LDA 
LDX 
PHA 
TXA 
JSR 
PLA 


* $68 
$B8D2 


SFFD2 


* $66 
* $67 


$B8C2 


KRREKKKKKEKKKKKKKRKKKKKKKKKKKKKKKE 


B8A5: 
B8A8: 
B8AA: 
B8AD: 


20 C2 BB 
AY 20 

4C D2 FF 
20 7D FF 


JSR 
LDA 
JMP 
JSR 


$B8C2 
# $20 
SFFD2 
SFF7D 
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Restore old X contents from 
stack 

Load acc with error help pointer 
Return from subroutine 


Number system bases 
Hex, decimal, octal, binary 


Number of multiplications with 
the factor 2 for number systems 


Hex, decimal, octal, binary 


OP3 contents displayed as 
5-byte ASCII 


Load A w/ hi (bank) byte (OP3) 
Acc in 2-byte ASCII: hi=A,lo=X 
ASCII code of low value in acc 
Kernal BSOUT: print a character 
Load A w/ lo(Addr-lo)byte(OP3) 
Load Xmid(Addr-hi)byte(OP3) 
Store acc on stack 

Addr-hi value from OP3 in acc 
Display acc in 2-char ASCII 
Load acc again w/ addr-lo (OP3) 


Prepare acc in ASCII, output, 
output <Blank>, for start-of-line 


Acc displayed as 2-char ASCII 
Put <Blank> in accumulator 
Kernal BSOUT: output a char 
Kernal PRIMM: output string 
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KKKKKKKEKKKK KKK ER ERERERKREK KEKE 
B8B0: OD 91 00 
KKKKKK KKK KK KKK KK KEKE KKERKEKEK RK KK 


B8B3: 60 RTS 


KKEKKKKKKKKKKKKKKKKKKKEKKKKKKKKK 


B8B4: A9 OD LDA # $O0D 
B8B6: 4C D2 FF JMP SFFD2 
B8B9: 20 7D FF JSR SFF7D 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


B8BC: OD 1B 51 20 00 


KRKKKKEKKKKKKKKKKKKEKKKKKKKEKKKKK 


B8Cl: 60 RTS 


KAEKKKEKKEKKEKKEKKEKKKEKKEKKEKKKKKKKKKK 


B8C2: 8B AF OA STX SOAAF 
B8c5: 20 D2 B8 JSR $B8D2 
B8C8: 20 D2 FF JSR _ SFEFD2 
B8CB: 8A TXA 

B8CcC: AE AF OA LDX SOAAF 
B8CF: 4C D2 FF JMP SFFD2 


KKKKKKKKKKKKKKEKKKEKKKKKKKKKKKK 


B8D2: 48 PHA 
B8D3: 20 DC B8 JSR $B8DC 
B8D6: AA TAX 
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Monitor output constants 
<Cr> <Crsr Up> 

End of output routine 
Return from subroutine 


<Cr> <Cr> <Esc-Q> blank 
output 


Load <Cr> code into accu. 
Kernal BSOUT: output a char 
Kernal PRIMM: output string 


Monitor constants for carriage 
return and clear next line, blank 


<Cr> <Esc-Q> Blank 
End of output routine 
Return to subroutine 


Convert acc contents contents to 
2-byte char. and output via 
BSOUT 


Store old X-reg contents 

Acc in 2-byte ASCII: hi=A,lo=X 
Kernal BSOUT: output a char 
Load char. from X into accu. 
Restore X-register 

Kernal BSOUT: output a char 


Split acc contents and convert to 
2-byte ASCII code (X=lo, A=hi) 


Store acc contents temporarily 
Convert low nibble to ASCII 
ASCII for low nibble in X-reg 
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B8D7: 
B8D8: 
B8D9: 
B8DA: 
B8DB: 


68 
4A 
4A 
4A 
4A 


PLA 
LSR 
LSR 
LSR 
LSR 


> DD b 


KKKKKKKKKKEKKKEKKKEKRKKKKKKKKKKKKK 


B8DC: 
B8DE: 
B8E0: 
B8E2: 
B8E4: 
B8E6: 


29 
cg 
90 
69 
69 
60 


OF 
OA 
02 
06 
30 


# SOF 
# SOA 
SB8E4 
# $06 
# $30 


KRKKEKKKEKKKKEKRKKKRKKKEKKKKKKKKKKKE 


B8E7: 


B8E9: 
B8EC: 
B8EE: 
B8F1: 
B8F3: 
B8F5: 
B8F7: 
B8F9: 
B8FA: 
B8FC: 
B8FF: 
B900: 


AF 0A 


00° 02 


AF 0A 


DEC 


STX 
LDX 
LDA 
BEQ 
CMP 
BEQ 
CMP 
PHP 
INC 
LDX 
PLP 
RTS 


* STA 


SOAAF 
* STA 
$0200,X 
SB8F9 
# $3A 
SB8F9 
# $3F 


* STA 
SOAAF 
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Restore acc contents 

Shift right 4 times so that 

the highest nibble (bits 4-7) is 
shifted into the lower nibble 
(bits 0-3) position 


Convert the lower nibble in the 
acc to ASCII code 


Mask high nibble out (bits 4-7) 
Is it anumber from 0-9? 

Yes, create ASCII code 
Character adaptation for A-F 
Generate ASCII for acc contents 
Return from subroutine 


Get 1 char. from input buffer 
and check for cmd-end,<:>,<?> 
equal flag. 


Display to input buffer - 1 (like 
CHRGOT) 

Store X-reg contents 

Load X-reg w/ display to in. buf 
Get char. from cmd input buffer 
Has $00 (cmd-end) been found? 
Is char. read a <:> ? 

Yes, exit with set equal flag 


~ Ts char. read a <?> ? 


Store status of equal flag 
Displ. to input buffer+1 (next 
char.). Restore X-register 
Restore equal flag status 
Return from subroutine 
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KKK KKK KEK KKK KK KEK KKKKKEK KKK KKK Copy contents of OP1 
($62-$61-$60) 
into OP3 ($68-$67-$66) 


B901: A5 60 LDA * $60 Get OP1 lo(addr-lo) and copy 
B903: 85 66 STA * $66 into OP3 lowest (addr-lo) 
B905: AS 61 LDA * $61 Get OP1 middle (addr-hi) and 
B907: 85 67 STA * $67 copy into OP3 middle (addr-hi) 
B909: AS 62 LDA * $62 OP1 highest (bank-byte) copies 
B90B: 85 68 STA * $68 into OP3 highest (bank-byte) 
B90D: 60 RTS Return to subroutine 


KHRKEKKKKKKKKKK KKK KKKKKEK KK KK KKK Store diff. OP1-OP3 in OP1 


B90E: 38 SEC Set carry for subtraction 

BOOF: A5 60 LDA * $60 Load accu with OP1 lowest 
B911: E5 66 SBC * $66 Subtract OP3 lowest from it 
B913: 85 60 STA * $60 Store result in OP1 lowest 
B915: A5 61 LDA * $61 Load acc w/ OP1 middle 

B917: E5 67 SBC * $67 Subtr OP3 middle (+ underflow) 
B919: 85 61 STA * $61 Store result in OP3 middle 
B91B: A5 62 LDA * $62 Load acc w/ OP1 highest 

B91D: E5 68 SBC * $68 Subtr OP3 highest (+underflow) 
B91F: 85 62 STA * $62 Store result in OP1 highest 
B921: 60 RTS Return from subroutine 


KAKKKK KK KKK KAR KK KKK KKK RKKKKKE Subtraction: OP1 - Minuend in 


$SOAAF 
B922: AQ 01 LDA # $01 Load acc w/ 1 and store as 
B924: 8D AF OA STA SOAAF Minuend in $0AAF 
B927: 38 SEC Set carry for subtraction 
B928: A5 60 LDA * $60 Load accu w/ OP1 Lowest 
B92A: ED AF 0A SBC SOAAF Subtr minuend from OP1 lowest 
B92D: 85 60 STA * $60 Write result of subtr. back 
B92F: A5 61 LDA * $61 Load acc w/ OP1 middle 
B931: E9 00 SBC # $00 Note underflow of lowest subtr. 
B933: 85 61 STA * $61 Write result of subtr. back 
B935: A5 62 LDA * $62 Load acc w/ OP1 highest 
B937: E9 00 SBC # $00 Note underlow of middle subtr. 


Abacus Software 128 Internals 





B939: 85 62 STA * $62 Write result of subtr. back 
B93B: 60 RTS Return from subroutine 
KERR KKKKKKK KKK KKK KEK RRR KEKKEK KEK Subtraction of constant 1 from 


operand 2 (OP2) in $65-$64-$63 


B93C: 38 SEC Set carry for subtraction 

B93D: AS 63 LDA * $63 Load acc w/ OP2 lowest 

B93F: E9 01 SBC # $01 Subtract 1 from it 

B941: 85 63 STA * $63 Write result of subtr. back 
B943: A5 64 LDA * $64 Load acc w/ OP2 middle 
B945: E9 00 SBC # $00 Note undeflow of lowest subtr. 
B947: 85 64 STA * $64 Write result of subtr. back 
B949: A5 65 LDA * $65 Load acc w/ OP3 highest 
B94B: E9 00 SBC # $00 Note underflow of middle subtr. 
B94D: 85 65 STA * $65 Write result of subtr. back 
BO4F: 60 RTS Return from subroutine 


KKKKKKKKKKKK KKK KKK KRKKKKKKKKK Addition of acc contents to OP3 


B950: A9 O01 LDA # $01 Load acc w/ addition constant 1 
B952: 18 CLC Clear carry for addition 

B953: 65 66 ADC * $66 Add contents of OP3 lowest 
B955: 85 66 STA * $66 Write result of addition back 
B957: 90 06 BCC $B95F If no overflow, then return 
B959: E6 67 INC * $67 Incr.. OP3 middle if overflow 
B95B: DO 02 BNE $B95F If no overflow, then return 
B95D: E6 68 INC * $68 Incr. OP3 highest for overflow 
B95SF: 60 RTS Return from subroutine 

KKKKK AKA KEK KEK KEK KEK KKKKK KKK Subtr. of constant 1 from OP3 
B960: 38 SEC Set carry for subtraction 

B961: A5 66 LDA * $66 Load acc w/ OP3 lowest 

B963: E9 01 SBC # $01 Subtract constant 1 

B965: 85 66 STA * $66 Write result 

B967: A5 67 LDA * $67 Load acc w/ OP3 middle 
B969: E9 00 SBC # $00 Take underflow into account 
B96B: 85 67 STA * $67 Write result 
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B96D: 
B9O6F: 
B9O71: 
B973: 


A5 
B9 
85 
60 


68 
00 
68 


LDA 
SBC 
STA 
RTS 


* $68 
# $00 
* $68 


KHKKEKEKKKKKKKEKKKKKKKKKKKKKKKKKKE 


B974: 
B976: 
B978: 
BOTA: 
B9T7C: 
B9TE: 
B980: 
B982: 


BO 
A5 
A4 
A6 
85 
84 
86 
60 


0c 
60 
61 
62 
04 
03 
02 


$B982 
$60 
$61 
$62 
$04 
$03 
$02 


+ + FF OF OF 


KRKKKKKKKKKKKKKKKKKKKKKKKKKEKKK 


B983: 
B985: 
B988: 
B98B: 
B98D: 
B98F: 
B992: 
B994: 
B997: 
B999: 
B99C: 
B9OOF: 
B9OAIL: 
B9A3: 


BO 
20 
20 
BO 
A5 
8D 
A5 
8D 
A5 
8D 
20 
A5 
85 
A5 


2A 
01 
A7 
22 
60 
B7 
61 
B8 
62 
B9 
OE 
60 
63 
61 


B9 
B7 


OA 


OA 


OA 


B9 


SBOAF 
$B901 
$B7A7 
SB9AF 
* $60 
$0AB7 
* $61 
SOAB8 
* $62 
SOAB9 
SB90E 
* $60 
* $63 
* $61 
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Load acc w/ OP3 highest 
Account for underflow 
Write result 

Return from subroutine 


Copy (for carry clear) the 
contents of OP1 into zero page 
memory for Bank-no, PC-hi, 
PC-lo 


Return if carry set 

Load acc w/ OP1 lo (addr-lo) 
Load Y-reg w/OP1 mid (addr-hi) 
Load X-reg w/OP1 hi (bnk-byte) 
Bring in Z-P byte for PC-Lo 
Bring in Z-P byte for PC-Hi 
Bring in Z-P byte for bank-no 
Return from subroutine 


Put "from" operand in OP3 
Get "to" operand in OP1 

Copy "to" operand in OPH 
Form difference of OP1-OP3 — 
& store "step number" in OP1 
Copy "step number" in OP2 


Exit if error in command param 
Copy contents of OP1 into OP3 
Get "to" operand in OP1 

"to" operand invalid, error exit 
Copy the contents 

of the 3-byte operand 

OP1 into the 3-byte 

temp operand in 

memory locations 
$0AB9-$0AB8-$0AB7 
Difference:OP1-OP3 in OP1 
Copy the 

contents of 

3-byte OP1 
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B9AS: 
B9A7: 
B9AY: 
BOAB: 
B9OAD: 
B9AE: 


85 
A5 
85 
90 
18 
24 


64 
62 
65 
02 


STA 
LDA 
STA 
BCC 
CLC 


* $64 
* $62 
* $65 
SBOAF 


-Byte $24 


KREKKKKKKKKKKEKKEKKKKKKKKKKKKKKKE 


BOAF: 
B9BO: 


38 
60 


SEC 
RTS 


KRKKKKKKKKKEKKKEKKKKKKKEKKKKKKKKE 


BOB1: 
B9B4: 
B9B7: 
BOB9: 
B9OBC: 
B9OBE: 
B9CO: 
B9C3: 
B9C4: 
B9C7: 
B9C9: 
B9OCB: 
B9CE: 
B9D1: 
B9D3: 
B9D6: 
B9D9: 
B9DB: 
B9DD: 
BODF: 
B9E2: 
B9ES: 
B9E7: 


B9EA: 


20 
20 
A9 
20 
A5 
FO 
20 
8A 
20 
A5 
A6 
20 
20 
AQ 
20 
20 
A9 
A2 
AO 
20 
20 
AQ 
20 
A9 


A5 
B9 
24 
D2 
62 
07 
D2 


D2 
60 
61 
oF 
B9 
2B 
D2 
07 
00 
08 
03 
5D 
B9 
26 
D2 
00 


B7 
B8 


FF 


B8 


FF 


B8 


B8 


FF 
BA 


BA 
B8 


FF 


$B7A5 
SB8B9 
# $24 
SFFD2 
* $62 
$B9C7 
$B8D2 


SFFD2 
* $60 
* $61 
SB89F 
$SB8B9 
# $2B 
$FFD2 
$BA07 
# $00 
# $08 
# $03 
SBA5D 
$B8B9 
# $26 
SFFD2 
# $00 
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operand 

in the OP2 

operand 

If OP1 > OP3, then error exit 
Clear carry as marker for OK 
Skip to $B9BO (RTS) 


Routine exit for error 
encountered 


Set carry = error-found marker 
Return from the subroutine 


Output for conversion command 
(&%+$) 


Get the conversion value in OP1 
output <Cr> <Esc-Q> <space> 
Load accu with <$> 

Kernal BSOUT: output a char. 
Load hi of the 3-byte conv.value 
If $00, suppress leading zeros 
Acc in 2-byte ASCII: hi=A,lo=X 
ASCII for low nibble in acc 
Kernal BSOUT: output a char 
Load lo of the 3-byte conv.value 
Load mid of 3-byte conv value 
Output theses as 4 ASCII chars 
output <Cr> <Esc-Q> <space> 
Load acc with <+> 

Kernal BSOUT: output a char 
Convert OP1 to decimal 

Marker for leading-zero suppres 
Output 8 characters 

Every 4 bits is an output digit 
Output AAO-AA3 as a decimal # 
Output <Cr> <Esc-Q) <space> 
Load ace with <&> 

Kernal BSOUT: output a char 
Marker for leading-zero suppres 
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B9EC: 
B9EE: 
B9FO: 
B9OF3: 
BOF6: 
BOFS8: 
B9OFB: 
BOFD: 
BOFF: 
BAO]: 
BAO4: 


KRKKKKKKKKKKEKKKKKEKKKKKKKKKKKKK 


BAO7: 
BAOA: 
BAOC: 
BAOE: 
BA11: 
BA12: 
BA14: 
BA17: 
BA19: 
BAIA: 
BAB: 
BAIC: 
BALE: 
BA20: 
BA22: 
BA24: 
BA25: 
BA27: 
BA2A: 
BAZ2D: 
BA30: 
BA31: 
BA33: 
BA34: 


A2 
AQ 
20 
20 
AY 
20 
A9 
A2 
AO 
20 
4c 


08 
02 
47 BA 
BS B8 
25 
D2 FF 
00 
18 
00 
47 BA 
8B BO 


A7 OA 


A4 OA 
AO 0A 
AO OA 


# $08 
# $02 
SBA47 
SB8B9 
# $25 
SFFD2 
# $00 
# $18 
# $00 
SBA47 
$B08B 


$B901 
# $00 
# $07 


$OAA0,X 


SBAOE 
SOAAT7 
# $17 


* $68 
# $67 
# $66 
$BA33 


# $03 


S$OAA4,X 
SOAAO,X 


$BA27 


# $03 
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Output 8 characters 

Every 3 bits is an output digit 
Output AAO-AA3 as an octal # 
Output <Cr> <Esc-q> <space> 
Load accumulator with <%> 
Kernal BSOUT: output a char 
Marker leading-zero suppression 
Output 18 characters 
Every bit is an output digit 
Output AAO-AA3 in binary 
Jump to input wait loop 


Convert contents of OP1 to an 
8-place decimal number in 
AA0-AA4 


Copy contents of OP1 into OP3 
Clear AAO-AA3 for 

decimal number 
Clear AA4-AA7 as temp counter 
for decimal conversion 

Init. one's place of temp counter 
with <1> 

Loop cntr for conversion steps 
Store dec. and interrupt status 
Disable all system interrupts 
Decimal mode ON 

Divide 3-byte value 

in OP3 

by <2> 

NO REMAINDER-‘skip dec. add 
Clear carry for decimal addition 
If a remainder is left from the 
division, add the contents 

of the four-byte temp counter 
which is held (as power of 2) 

in output memory 

(4 bytes=8 digits) 

Clear carry for decimal addition 
Multiply contents of 4-byte 


Abacus Software: 
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BA36: 
BA39: 
BA3C: 
BA3F: 
BA40: 
BA42: 
BA43: 
BA45: 
BA46: 


A4 
A4 
A4 
F4 


D7 


OA 
OA 
OA 


LDA 
ADC 
STA 
DEX 
BPL 
DEY 
BPL 
PLP 
RTS 


$OAA4,X 
SOAA4,X 
$0AA4,X 


$BA36 


$BA1C 


KKEKKKKKKKKEKKKEKKKKKKKKKKKKKKKEKK 


BA47: 
BA48: 
BA4A: 
BA4D: 
BA4F: 
BA52: 
 BAS4: 
BA57: 
BA59: 
BASC: 


KKAKKKKKKKKKKKKKEKKKKEKKKKKKKKKE 


BA5D: 
BA60: 
BA63: 
BA66: 
BA68: 
BAGB: 
BA6E: 
BA71: 
BA74: 
BA75: 
BA76: 
BA78: 
BA79: 


48 
A5 
8D 
A5 
8D 
AS 
8D 
Ag 
8D 
68 


8D 
8C 
AC 
A9 
OE 
2E 
2E 
2E 
2A 
88 
10 
A8 
DO 


B4 
B6 
B6 
00 
A3 
A2 
Al 
AQ 


FO 


09 


OA 


OA 


0A 


OA 


OA 
OA 
OA 


OA 
OA 
OA 
OA 


STA 
STY 
LDY 
LDA 
ASL 
ROL 
ROL 
ROL 
ROL 
DEY 
BPL 
TAY 
BNE 


* $60 
$0AA2 
* $61 
$OAA1 
* $62 
SOAA0 
# $00 
$OAA3 
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counter by <2> 

The contents of the temp counter 
are always the power-of-two of 
the bit being processed in OP3 


Decrement loop counter by 1 
until all steps are processed 
amounts to an SED &CLI cmd 
Return from subroutine 


Convert 3-byte OP1 operand to 
4-byte output operand OPA 


Put acc contents on stack 

Copy OP1 (low-byte) into 
OPA (middle-low-byte) 

Copy OP1 (middle) into 

OPA (middle-high) 

Copy OP1 (high) into 

OPA (high) 

Load acc with 00 and 

copy into OPA (low) 

Restore acc contents from stack 


Output of the OPA operand 
corresponds to X & Y registers 


Set flag for zero-suppression 
Store bit # for 1 output digit 
Get bit # for 1 output digit 
Initialize acc as output storage 
Shift contents of 

4-byte output operand 

one bit position to 

the left. Store 

MSB in accu 

Bit counter for 1 output digit - 1 
Loop until a digit is in acc 
Secure output digit in Y 

If not equal to 0, then output 
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BA7B: EO 01 CPX # $01 
BA7D: FO 05 BEQ S$BA84 
BATF: AC B4 OA LDY $0AB4 
BA82: FO 08 BEQ SBA8C 
BA84: EE B4 0A INC $0AB4 
BA87: 09 30 ORA # $30 
BA89: 20 D2 FF JSR SFEFD2 
BA8C: CA DEX 

BA8D: DO D4 BNE $BA63 
BA8F: 60 RTS 


KRKKKKKKKKKKKKKKRKEKKKKEKKKKKKKKKE 


BA90: DO 03 BNE $BA95 
BA92: A2 08 LDX # $08 
BA94: 2C .Byte $2C 


KKKKKKKKRKKKKKKEKKKKKKKEKKKKKKKKE 


BA95: A6 60 LDX * $60 
BA97: EO 04 CPX # $04 
BA99: 90 65 BCC $BBO0 
BA9B: EO 1F CPX # $1F 
BA9D: BO 61 BCS $BBO0 
BASF: 86 60 STX * $60 
BAA1: A9 00 LDA # $00 
BAA3: 85 62 STA * $62 
BAA5: 85 B7 STA * $B7 
BAA7: AA TAX 

BAA8: 20 68 FF JSR SFF68 
BAAB: 20 E9 B8 JSR $B8E9 
BAAE: C6 7A DEC * S7A 
BABO: C9 24 CMP # $24 
BAB2: FO 4F BEQ $BB03 
BAB4: A9 00 LDA # $00 
BAB6: Aé6 60 LDX * $60 
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Test for 1st place 

Yes, output digit in any case 
Load zero-suppression flag 
Still active, don't output zero 
Turn off zero suppression 
Load acc with <space> char. 
Kernal BSOUT: output a char 
Loop counter for num. of digits 
Not equal 0--output next digit 
Return from subroutine 


Monitor command: @ 
(Disk command) 


Device addree identifier present 
Set standard device address (8) 
skip to $BA97 


Disk command routine with 
parameter for device address 


Get device # from OP1 (low) 
Device number <4 is invalid 
Display <?>--go input wait loop 
Device address >30 is invalid 
Display <?>--go input wait loop 
Store device # in OP1 (low) 
Load bank # for LSV & filename 
Store in OP1 bank byte 

Set filename length to 0 

Clear acc + X-reg for SETBNK 
Kernal SETBNK: Bank # for 
LSV+filename 

Read a char. from input buffer 
Disp!. pointer input buf -1 (like 
CHRGOT) 

Is char. read a <$> ? 

Yes, then output directory 
Logical file number (0) in acc 
Get device # from OP1 (low) 
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BAB8: AO OF LDY # SOF Set secondary addr. (15) 

BABA: 20 BA FF JSR $FFBA Kernal SETLFS: Set file param. 
BABD: 20 CO FF JSR  $FFCO Kernal OPEN: Open file 

BACO: BO 32 BCS S$BAF4 OPEN error--CLRCH & exit 
BAC2: A2 00 LDX # $00 Logical file (0) set as output 
BAC4: 20 C9 FF JSR $FFC9 Kernal CKOUT: Set out channel 
BAC7: BO 2B BCS S$BAF4 If error occurs, then exit 

BAC9: A6 7A LDX * $7A Set display ptr. to input buffer 
BACB: E6 7A INC * $7A and set to next char. 

BACD: BD 00 02 LDA $0200,X Read char. -input buffer, display 
BADO: FO 05 BEQ $BAD7 Cmd-end--close cmd channel 
BAD2: 20 D2 FF JSR $FFD2 Kernal BSOUT: output a char 
BAD5: 90 F2 BCC S$BAC9 OK, output next character 
BAD7: 20 CC FF JSR $FFCC Kernal CLRCH: I/O chni reset 
BADA: 20 B4 B8 JSR _ $B8B4 <C/R> + clear rest of line 
BADD: A2 00 LDX # $00 Set logical file (0) as input 
BADF: 20 C6 FF JSR $FFC6 Kernal CHKIN: Set input chnl 
BAE2: BO 10 BCS $BAF4 If error occurs, then exit 

BAE4: 20 CF FF JSR $FFCF Kernal BASIN: read a character 
BAE7: 20 D2 FF JSR $FFD2 Kernal BSOUT: output a char 
BAEA: C9 OD CMP # $0D Has <CR> been printed ? 
BAEC: FO 06 BEQ SBAF4 Yes, CLRCH and exit routine 
BAEE: A5 90 LDA * $90 Load system status in acc 

BAFO: 29 BF AND # SBF Mask out bit 6 (= end-of-file) 
BAF2: FO FO BEQ $BAE4 No error? Continue... 

BAF4: 20 CC FF JSR $FFCC Kernal CLRCH: I/O chni reset 
BAF7: A9 00 LDA # $00 Completely close logical file (0) 
BAF9: 38 SEC Set carry for CLOSE routine 
BAFA: 20 C3 FF JSR $FFC3 Kernal CLOSE: Close file 
BAFD: 4C 8B BO JMP $BO8B Jump to input wait loop 

BB0O: 4C BC BO JMP S$BOBC Display <?>--go input wait loop 
KKKKKK KEK KEK KEKR KA K KKK KARA KK Routine for disk directory 
BBO3: AO FF LDY # SFF Set filename length counter to -1 
BBO5: A6 7A LDX * $7A Get display pntr to input buffer 
BBO7: CA DEX and set to preceding char. 

BBO8: C8 INY Increment filename counter 
BBO9: E8 INX Display pointer to next char. 


BBOA: BD 00 02 LDA $0200,X Read char. -input buf., display 
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BBOD: DO F9 BNE $BBO08 No cmd-end, then next char. 
BBOF: 98 TYA Copy filename length into A 
BB10: A6 7A LDX * $7A Load filename addr.dow) X-reg 
BB12: AO 02 LDY # $02 Load filename addr.(hi) Y-reg 
BB14: 20 BD FF JSR $FFBD Kernal SETNAM: Set filename 
BB17: A9 00 LDA # $00 Logical file (0) in acc 

BB19: A6 60 LDX * $60 Get dvc # from OP1 (low) 
BB1B: AO 60 LDY # $60 Get secondary address (96) 
BB1D: 20 BA FF JSR $FFBA Kernal SETLFS: Set file param. 
BB20: 20 CO FF JSR $FFCO Kernal OPEN: Open file 

BB23: BO CF BCS SBAF4 If error occurs, then exit 

BB25: A2 00 LDX # $00 Set log. file (0) as input 

BB27: 20 C6 FF JSR SFFC6 Kernal CHKIN: Set input chnl 
BB2A: 20 B4 B8 JSR $B8B4 <C/R>-+clear rest of line 

BB2D: AO 03 LDY # $03 Counter reads first 

BB2F: 84 63 STY * $63 six directory bytes 

BB31: 20 CF FF JSR $FFCF Kernal BASIN: read a character 
BB34: 85 60 STA * $60 Store dir char. in OP1 (low) 
BB36: A5 90 LDA * $90 Load system status in acc 

BB38: DO BA BNE SBAF4 If error occurs, then exit 

BB3A: 20 CF FF JSR $FFCF Kernal BASIN: read a character 
BB3D: 85 61 STA * $61 Store directory char. in OP1 (hi) 
BB3F: A5 90 LDA * $90 Load system status in acc 

BB41: DO Bl BNE SBAF4 If error occurs, then exit 

BB43: C6 63 DEC * $63 Decrement dir. bytes skip cntr 
BB45: DO EA BNE S$BB31 Not equal to 0, read more bytes 
BB47: 2007 BA JSR S$BAO7 Prep. & display OP1 contents 
BB4A: A9 00 LDA # $00 in decimal form: Output the 
BB4C: A2 08 LDX # $08 length of a directory entry 
BB4E: AO 03 LDY # $03 and number 

BB50: 20 5D BA JSR  $BAS5D of blocks free 

BB53: A9 20 LDA # $20 Load ace with a <space> char. 
BB55: 20 D2 FF JSR SFFD2 Kernal BSOUT: Char. output 
BB58: 20 CF FF JSR S$FFCF Kernal BASIN: Read a character 
BB5B: FO 09 BEQ $BB66 $0 is signal - end of 1st dir. line 
BB5D: A6 90 LDX * $90 Load system STATUS in X-reg 
BB5F: DO 93 BNE S$BAF4 If error occurs, then exit 

BB61: 20 D2 FF JSR S$FFD2 Kernal BSOUT: print a character 
BB64: 90 F2 BCC $BB58 Output next char. in dir. line 
BB66: 20 B4 B8 JSR $B8B4 <C/R>+clear rest of line 
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i CUE EEE 


BB69: 20 E1 FF JSR $FFE1 Kernal STOP: test for STOP key 
BB6C: FO 86 BEQ $BAF4 If STOP, goto exit routine 
BB6E: AO 02 LDY # $02 Read counter for 4 dir. bytes 
BB70: DO BD BNE $BB2F Unconditional jump to dir. read 


KKKKKKKKKKKKKKKKKKKKRKKKK KKK KK END OF ROM monitor 


BB72: FF FF FF... Fill characters 
BFFB: .. . FF FF FF 


BFFE: 00 3A 


KKEKKKKKKKKKEKKKKKEKEKKEKKKKKKKEKE 
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KRRKEKKKKKKKKKKKKKKKKKKK KKK KKKKK 


C000: 4C 7B CO JMP $C07B 
C003: 4¢C 34 cc JMP $CC34 
C006: 4C 34 C2 JMP $C234 
C009: 4C 9B C2 JMP $C29B 
co0Cc: 4C 2D C7 JMP $C72D 
COOF: 4¢C 5B CC JMP $CC5B 
C012: 4C 5D C5 JMP $C55D 

4C 87 FC JMP $FC87 
C015: 4C 51 Cé JMP §$C651 
C018: 4C 6A CC JMP §$CC6A 
CO1B: 4¢C 57 CD JMP $CD57 
CO1E: 4C Cl C9 JMP $cC9Cl1 
C021: 4C A2 cc JMP $CCA2 
C024: 4C 94 Cl JMP $§C194 
C027: 4C 0C CE JMP $CEOC 
CO2A: 4C 2E CD JMP S$CD2E 
C02D: 4C 1B CA JMP SCA1B 


C030: FEF FF FF 


KKKEKKKKKKKKKKEKKKKKEKKKKKKKKKKEK 


C033: 00 28 50 78 AO C8 FO 18 
CO3B: 40 68 90 B8 EO 08 30 58 
C043: 80 A8 DO F8 20 48 70 98 
CO4B: co 


KAKKEKKKKKKKKKKKKKKEKKEKKKKKKKKKKK 


CO4C: 04 04 04 04 04 04 04 05 
C054: 05 05 05 05 05 06 06 06 
CO5C: 06 06 06 06 07 07 07 07 
c064: 07 


KRHEKKKKKEKKKKEKKKKKKKEKKKKKKKKKKEKE 


B9 C7 
05 C8 


C065: 
C067: 


($C7B9) 
($C805) 
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Jump table for editor routines 


CINT initializes editor & screen 
DISPLAY char in A, color in X 
LP2 gets a char from IRQ buffer 
LOOPS a char from the screen 
PRINT vector for screen output 
SCRORG returns screen width 
KEY read key 

(International versions only) 
REPEAT the keyboard logic 
PLOT sets/reads cursor position 
CURSOR moves 80-cln cursor 
ESCAPE outputs ESC sequence 
PFKEY defines a function key 
IRQ jumps to editor IRQ routine 
INIT80 initializes 80-column 
SWAPPER exch. 40/80 column 
WINDOW sets left/top or 
right/lower corner of window 
Free for future extensions 


Line starts, low bytes 


$0400, $0428, $0450 
$0478, $04A0, $04C8 
$04F0, $0518, $0540 
$0568, $0590, $05B8 


Line starts, high bytes 


$OSE0, $0608, $0630 
$0658, $0680, $06A8 
$06D0, $06F8, $0720 
$0748, $0770, $0798, $07C0 


Character output and keyboard 
vectors . 
Entry: char output with CTRL 
Entry: char output with SHIFT 
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C069: C1 C9 ($C9C1) Entry: character output with ESC 
CO6B: El C5 ($C5E1) Entry: evaluate keyboard 
CO6D: AD Cé (SC6AD) Entry: Store keypress 
KRKKK KKK KKK KKK KKEKRKEEKK KK KKK KK Pointer to keyboard decoder 
table 
CO6F: 80 FA ($FA80) Keyboard decoder table la 
C071: D9 FA ($FAD9) Keyboard decoder table 2a 
C073: 32 FB ($FB32) Keyboard decoder table 3a 
C075: 8B FB ($FB8B) Keyboard decoder table 4a 
C077: 80 FA ($FA80) Keyboard decoder table la 
C079: E4 FB ($FBE4) Keyboard decoder table 5a 
KKKKKKKKKKKEKKKRKEKRKEKKKKEKKKKKKKKK Kernal routine: CINT 
Initialize editor and screen 
CO7B: A9 03 LDA # $03 Two highest-order bits of base 
CO7D: OD 00 DD ORA_ S$DDO00 Set video because active-low 
C080: 8D 00 DD STA $DD00 And save again 
C083: A9 FB LDA # SFB Clear bit 2 of the data-direction 
c085: 25 01 AND * $01 Register and then set bit 1 of the 
C087: 09 02 ORA # $02 Data direction register and 
C089: 85 01 STA * $01 Save again 
CO8B: 20 CC FF JSR $FFCC Kernal CLRCH: reset I/O chnls 
CO8E: A9 00 LDA # $00 Reset filter, volume, and entry in 
C090: 20 80 FC JSR _ $FC80 Table for logged in cards 
C093: 85 D8 STA * $D8 Set text screen flag to "text" 
C095: 85 D7 STA * $D7 Set 40/80 column flag to "40" 
co97: 85 DO STA * $DO Clear keyboard buffer queue 
co99: 85 D1 STA * $D1 Clear function key flag 
CO9B: 85 D6 STA * SD6 Reset keyboard input/get flag 
CO9D: 8D 21 0A STA $0A21 Reset pause (Ctrl-S) flag 
COA0: 8D 26 0A STA $0A26 Reset cursor-flash flag 
COA3: 85 D9 STA * $D9 Pointer - char set in RAM/ROM 
COA5: 8D 2E 0A’ STA S$0A2E Base address - screen text RAM 
COA8: AQ 14 LDA # $14 Init. value for base pointer 
COAA: 8D 2C 0A’ STA S$O0A2C Text screen/char base pointer 
COAD: AQ 78 LDA # $78 Initialization value bit-map base 
COAF: 8D 2D 0A STA $0A2D Initialize bit-map base 
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COFB: 9D 34 03 


C101: 2C 04 OA 


C108: BD 6F CO 
C10B: 9D 3E 03 


C113: BD A8 CE 


# $08 
SOA2F 
$c04c 
$0A3B 
# SOA 
$0A20 
$0A28 
$0A27 
$0A24 
# $04 
$0A23 
$c983 
$0A22 
$D505 
$D505 
# $60 
$0A2B 
# $DO 
$0A34 
# $1A 


$CE74,X 
* SE0,X 
SCE8E,X 
$0A40,X 


SCOE8 
# $09 


$C065,X 
$0334,X 


SCOF8 
$0A04 
$c124 


. # $0B 


SCO6F,X 
$033E,X 


$C108 
# $4C 


$CEA8,X 
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Initialization value attribute RAM 
Initialize attribute RAM base 
Load initialization value ($04) 
Initialize PAL system pointer 
Start value-keyboard buffer size 
Init. flag - keyboard buffer size 
Count pointer for flashing cursor 
Flag for cursor flash mode 

Flag: keyboard repeat delay 

Start value for count speed 

Flag: repeat speed 

Initialize TAB positions 

Flag for keyboard repeat pointer 
Set the fast serial control bit in 
the MCR of the MMU 

Start value current cursor mode 
Flag for current cursor mode 
Initialization value for the system 
pointers: clear/move line 

Loop counter for z-page init. 
ROM copy of the 40-clm screen 
Copy start values in zero page 
ROM copy of the 80-clm screen 
Copy start values into RAM 
Decrement loop counter by 1 
Loop until all values transferred 
Loop counter for page 3 init. 
ROM copy of the character and 
Keyboard vectors into RAM area 
Decrement loop counter by 1 
Loop until all values transferred 
Check bit 6 of the init. flag 

Bit set, then skip 

Loop counter for page 3 init. 
ROM copy of the keyboard de- 
coder. Table vectors RAM area 
Decrement loop counter by 1 
Loop until all values transferred 
Loop cntr for function key init. 
Copy ROM copy of the f-key 
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C116: 9D 00 10 STA $1000,xX lengths and strings into RAM 


C119: CA DEX Decrement loop counter by 1 
C1l1A: 10 F7 BPL $C113 Loop until all values transferred 
Clic: aA9 40 LDA # $40 Set bit 6 to "ON" and combine 
C11E: OD 04 0A ORA $0A04 with initialization flag 

C121: 8D 04 0A STA S$0A04 Place result in init. flag 

C124: 20 2E CD JSR $CD2E Switch 40/80 column mode 
C127: 20 83 C9 JSR $c983 Reset the tabs 

C12A: 20 24 CA JSR S$CA24 Window=whole screen 

C12D: 20 42 cl JSR $C142 CLR/HOME 

C130: 20 2E CD JSR $CD2E Switch 40/80-column mode 
C133: 20 24 CA JSR _ S$CA24 Window=whole screen 

C136: 20 42 cl JSR $C142 CLR/HOME 

C139: 2C 05 D5 BIT §$D505 Test if 40/80-column mode 
C13c: 30 03 BMI $C141 Jump if 80 

C13E: 20 2E CD JSR §$CD2E Switch 40/80-column mode 
C141: 60 RTS Return from subtroutine 


KKKKKKKKKKKEKRKEKKKEKEKEKEKEK KKK KKK Clear window (CLR/HOME) 


C142: 2050 Cl JSR $c150 Cursor home 

C145: 20 5E Cl JSR S$C15E Calculate start address of line X 
C148: 20 A5 C4 JSR $C4A5 Clear line X 

C14B: E4 E4 CPX * SE4 Compare lower window border 
C14D: 8 INX Increment line pointer 

C14E: 90 F5 BCC $C145 If lower border not reached 
KARKKKKKKKKKKKKEKKEKKKEKKKERKERKKK Cursor home in window 

C150: A6 ES LDX * $E5 Load upper window border into 
C152: 86 EB STX * SEB X-reg. Write curent cursor line 
C154: 86 E8 STX * SEB Store as start input line 

C156: A4 E6 LDY * $E6 Load left window border Y-reg 
C158: 84 EC STY * SEC Store the current cursor column 
C15A: 84 E9 STY * SEQ And as start input column 
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RKKKKKKKKKKEKKEKKKKKKKEKKKKK KAKA Set address of current line 


C15C: A6 EB LDX * SEB Get current cursor line in X-reg 
C15E: BD 33 CO LDA $C033,X Get low-byte of start line 
C161: 24 D7 BIT * $D7 Test 40/80-column mode 
C163: 10 01 BPL $C166 Jump if 40-column mode 
C165: OA ASL A Otherwise address times two 
C166: 85 EO STA * SEO Store low byte 

C168: BD 4C CO LDA $c04c,x Get high byte of the start line 
C16B: 29 03 AND # $03 Mask out bits 2-7=X MOD 4 
C16D: 24 D7 BIT * $D7 Test 40/80-column mode 
C16F: 10 06 BPL $C177 Jump if 40-column mode 
C171: 2a ROL A Else shift carry into high byte 
C172: OD 2E 0A ORA SO0A2E And add to video start address 
C175: 90 03 BCC $C17A Unconditional jump to $C17A 
C177: OD 3B 0A’ ORA $0A3B Video start address 40-column 
C17A: 85 El STA * $E1 Store high byte 
KKKKKKKKKKKKKKKKKKEKKKEKKEKK KKK Adapt attribute RAM address 
C17c: A5 EO LDA * SEO Current screen line, low byte 
C17E: 85 E2 STA * SE2 To low byte of attrbute address 
C180: A5 El LDA * $E1 Get high byte current screen line 
C182: 24 D7 BIT * $D7 Test for 40/80-column mode 
C184: 10 07 BPL $C18D 40-column mode is active 
C186: 29 07 AND # $07 Mask out bits 3-7 

C188: OD 2F 0A ORA S$OA2F Add attrbute RAM base 

C18B: DO 04 BNE §$C191 Unconditional jump 

C18D: 29 03 AND # $03 Mask out bits 2-7 

C18F: 09 D8 ORA # S$D8 Add base of color RAM 

C191: 85 E3 STA * $E3 Store the attribute high byte 
C193: 60 RTS Return from the subroutine 
KAKKKKKKKKKKKKK KKK KKK KEKKEKRKEKEK KKK IRQ routine 

C194: 38 SEC Set carry flag as FLAG 

C195: AD19DO LDA s$p019 Load IRR from VIC 

C198: 29 01 AND # $01 Test raster-line interrupt bit 
C19A: FO 07 BEQ $C1A3 If not set then jump 

Cl9c: 8D 19 DO STA §$pD019 Clear the register 
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C19F: 
C1Al1: 
C1A3: 
C1A5: 
C1A8: 
C1AA: 
C1AC:. 
C1AE: 
C1AF: 
C1Bl1: 
C1B3: 
C1B5: 
C1B7: 
C1BA: 
C1BD: 
C1BF: 
c1cl: 
C1C3: 
c1c4: 
C1C7: 
C1c8: 
C1CB: 
C1CD: 
C1CF: 
C1D0: 
C1D3: 
C1D5: 
C1D7: 
C1D9: 
C1DA: 
C1pc: 
C1DD: 


24 
30 
29 
2c 
09 
AA 
DO 


D8 
FF 
6F 
11 DO 
04 
40 
31 


D8 
2c 
D8 
06 
34 OA 
12 DO 
01 
FD 
04 


2D OA 
11 DO 
TE 
20 
16 DO 
D8 
03 
EF 
10 


28 


LDA * S$D8 
CMP # SFF 
BEQ $C214 
BIT $D011 
BMI $C1AE 
AND # $40 
BNE SC1DF 


LDA * SD8 
BEQ SC1DF 
BIT * $D8 
BVC $C1BD 
LDA $0A34 
STA $D012 
LDA * $01 
AND # S$FD 
ORA # $04 


LDA $0A2D 


LDA $D011 
AND # S7F 
ORA # $20 


LDA $D016 
BIT * $D8 
BMI $C1DA 
AND # SEF 
-Byte $2C 
ORA # $10 
TAX 

BNE $C207 


KAEKKKKKKKKKKKEKEKKEKKKEKKKKKKKKKR 


C1DF: 
C1E1: 
C1E4: 
C1E6: 
C1E8: 


AQ 
8D 
AS 
09 
29 


FF 
12 DO 
01 
02 
FB 


LDA # SFF 
STA $D012 
LDA * $01 
ORA # $02 
AND # SFB 
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Test text/graphics 

If graphics screen enabled 
Then to appropriate routine 
Test VIC control register 1 
High byte of rester line is set 
Test extended-color mode 

Is set 

Setset carry as FLAG 

Get text/graphic mode 

Text mode - jump 

Test text/graphic mode 

Bit 6=0 means no raster line 
IRQ. Else get raster line 

and refresh storage 

Get data-direction register and 
Mask out bits 0-1 

Set bit 2 of the register 

And save configuration on stack _ 
Base address of the graphics 
Save base address on stack 
Get control register 1 of the VIC 
Clear raster line 1 carry and 
Set standard bit-map mode 
Control register to Y 

Get VIC control register 2 

Test text/graphic register 
Multi-color mode set 

Clear multi-color bit 

Skip to $C1DC 

Set multi-color bit 

Control register 2 to X 
Unconditional jump 


Text mode 


Raster line is last line 
Store as raster line 

Get data direction register 
Set bit 1 of the register 
And clear bit 2 


Abacus Software C-128 Internals 





C1EA: 05 D9 ORA * $D9 Bit 2 is then cleared 

ClEC: 48 PHA If CHARROM in RAM. Also 
C1ED: AD 2C 0A LDA SO0A2C storebase address of text/graphic 
C1FO: 48 PHA On the stack 

C1Fl1: AD 11D0 LDA $p011 Get VIC control register 
Cl1F4: 29 5F AND # SSF Clear carry and graphics 
C1F6: A8 TAY Control register 1 to Y 

Cl1F7: AD 16 DO LDA §$D016 Get VIC control register 2 
C1FA: 29 EF AND # SEF Clear multi-color bit 

ClFc: AA TAX Control register 2 to X 

C1FD: BO 08 BCS $C207 Carry set=don't wait 

C1FF: A2 07 LDX # $07 X is counter for delay loop 
C201: CA DEX Decrement the counter 

C202: DO FD BNE $C201 And jump if not done 

C204: EA NOP Two NOPs in the delay loop 
C205: EA . NOP To perfect it 

C206: AA TAX Control register 2 back to X 
KKKKKKKKKKK KKK KERR ERAEKKKKRKEKKKE Set the IRQ register 

C207: 68 PLA Get base address back 

C208: 8D 18 DO STA $p018 And base address to VIC 
C20B: 68 PLA Get data direction register from 
c20c: 85 01 STA * $01 Stack and save 

C20E: 8C 11D0 sTY §$D011 Control register 1 to VIC 
C211: 8E 16 DO SsTx S$D016 And control register 2 to VIC 
C214: BO 13 BCS $C229 If carry set then skip 

C216: AD 30 D0 LDA $D030 Get 1/2 MHz clock register 
C219: 29 01 AND # $01 Mask out relevant bit 

C21B: FO 0c BEQ $C229 Jump if 1 MHz 

C21D: AS D8 LDA * $D8 Get text/graphic mode 

C21F: 29 40 AND # $40 Test raster-line interrupt bit 
C221: FO 06 BEQ $C229 No raster-line interrupt 
C223: AD11D0 LDA $p011 Get control register 1 

C226: 10 01 BPL $C229 No carry - jump 

C228: 38 SEC Set carry as FLAG 

C229: 58 CLI Enable all system interrupts 
C22A: 90 07 BCC $C233 Done if FLAG not set 

C22c: 20 87 FC JSR $FC87 Call the kernal routine KEY 
C22F: 20 E7 C6 JSR SC6E7 Let VIC cursor flash 
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C232: 
C233: 


38 
60 


SEC 
RTS 


KREKKKKKEKKKKKKKKEKKKKKEKKKKKKKRKRKK 


C234: 
C236: 
C238: 
C23A: 
C23D: 
C23F: 
C241: 
C242: 
C243: 


A6 
FO 
A4 
B9 
C6 
E6 
58 
18 
60 


D1 
0c 
D2 
OA 10 
D1 
D2 


* $D1 
$C244 
* $D2 


$100A,Y 


* $D1 
* $D2 


KEKKKKKKKKKKKKKKKKKEKKKKKKKKKKK 


C244: 
C247: 
C24A: 
C24D: 
C24E: 
C250: 
C252: 
C254: 
C255: 
C256: 
C257: 


Ac 
BD 
9D 
E8 
E4 
DO 
cé 
98 
58 
18 
60 


4A 03 
4B 03 
4A 03 


DO 
FS 
DO 


LDY 
LDA 
STA 
INX 
CPX 
BNE 
DEC 
TYA 
CLI 
CLC 
RTS 


$034A 


$034B,X 
$034A,X 


* $D0 
$C247 
* $D0 


KEKKKKKKKKKKKKKEKKKKKKKKKKKKKKK 


C258: 
C25B: 
C25E: 
C260: 
C262: 
C264: 
C267: 
C26A: 
C26C: 


20 
20 
A5 
05 
FO 
20 
20 
co 
DO 


2D C7 
6F CD 
DO 
D1 
FA 
9F CD 
34 C2 
0D 
EA 


JSR 
JSR 
LDA 
ORA 
BEQ 
JSR 
JSR 
CMP 
BNE 


$C72D 
SCD6F 
* $DO 
* $D1 
$C25E 
SCD9F 
$C234 
# SOD 
$C258 
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Set carry for OK 
Return from subroutine 


Get character from KEY 


Must characters be fetched from 
keyboard buffer? NO 

Get pointer to KEY buffer 

Get character from KEY table 
Decrement the character counter 
Increment the pointer 

Enable all system interrupts 
Clear carry for "char. fetched" 
Return from subroutine 


Get character from buffer 


How many chars in the queue? 
Get character from queue 

And shift forward 

Increment the counter and move 
Characters until all characters in 
the queue are moved forward 
Offset of the keyboard queue -1 
Character to acc. 

Enable all system interrupts 
Clear carry for "char. fetched" 
Return from subroutine 


Get input line (w/<CR>) LOOP4 


Output character 

Move cursor 

# of chars in the keyboard buffer 
Plus # of chars in KEY buffer 
If empty then wait 

Set cursor 

Get character from buffer 

Is character <CR> 

No, then get next char. 
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C26E: 
C270: 
C272: 
C274: 
C277: 
C27A: 
C27D: 
C27F: 
C281: 
C283: 
C285: 
C287: 
C289: 
C28C: 
C28E: 
C290: 
C292: 
C294: 
C296: 
C298: 


85 
A9 
85 
20 
8E 
20 
A4 
A5 
30 
C5 
90 
A4 
cD 
DO 
c4 
FO 
BO 
85 
84 
4c 


D6 
00 
F4 
C3 
30 
B5 
B6 
E8 
13 
EB 
OF 
E9 
30 
04 
EA 
02 
11 
EB 
EC 
BC 


CB 
OA 
CB 


OA 


C2 


LDA 
STA 
JSR 
STX 
JSR 


* SD6 
# $00 
* SF4 
$CBC3 
$0A30 
$CBB5 
* SE6 
* SE8 
$C296 
* SEB 
$C296 
* SE9 
$0A30 
$C292 
* SEA 
$C294 
$C2A5 
* SEB 
* SEC 
$C2BC 


KKKKKKKKKKKKKKKKEKKKKKKKKKKKKK 


C29B: 
C29C: 
C29D: 
C29E: 
C29F: 
C2A1: 
C2A3: 
C2A5: 
C2A7: 
C2A9: 
C2AB: 
C2AD: 
C2AF: 
C2B1: 
C2B3: 
C2B5: 
C2B8: 


98 
48 
8A 
48 
A5 
FO 
10 
AQ 
85 
AQ 
A2 
B4 
FO 
E4 
FO 
20 
AQ 


D6 
B8 
17 
00 
D6 
0D 
03 
99 
04 
9A 
03 
2D 
0D 


C7 


TYA 
PHA 
TXA 
PHA 
LDA 
BEQ 
BPL 
LDA 
STA 
LDA 
LDX 
CPX 
BEQ 
CPX 
BEQ 
JSR 
LDA 


* $D6 
$C25B 
$C2BC 
# $00 
* $D6 
# $0D 
# $03 
* $99 
$C2B5 
* SOA 
$C2B8 
$C72D 


# $0D° 
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Set input flag 
Clear cursor mode flag 


Determine end of input line 
Save last column position 

Set line start 

Load left window-border, Y-reg 
Start of running input line 

Input line is following line 
Compare with current cursor line 
Border not reached 

Start of running input column 
Compare with last input column 
Is not the same column 
Compare with end of running in 
line is reached 

Set input/get flag to get 

Write current cursor line 

Store the current cursor column 
Get character at cursor pos./ 


Get character from screen 


Y-register (column) via acc 
Save on stack 

X-register (line) via 

Store on stack 

Get input/get flag 

To delay loop for GET 

No <CR> necessary yet 

The input/get flag is set via 
The accumulator 

ASCII code for <CR> 
Compare code for screen with 
Standard input device 

Input device is screen 
compare with standard output d 
device. Output to screen 
BSOUT entry screen 

ASCII code for <CR> 
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C2BA: DO 39 BNE $C2F5 Unconditional jump to end 


KEKKK KKK KAKREK KKK KKK KKK KKK RRA KK Character at cursor pos in ASCII 


C2Bc: 20 5C Cl JSR $C15C Get address of current line 
C2BF: 20 58 CB JSR $CB58 Character and color at cursor pos 
C2c2: 85 EF STA * SEF Temp storage for print character 
C2c4: 29 3F AND # $3F Mask out bits 6/7 

C2C6: 06 EF ASL * SEF The character is then converted 
C2Cc8: 24 EF BIT * SEF to ASCII 

C2CA: 10 02 BPL $C2CE Not a reverse character 

c2cc: 09 80 ORA # $80 Set bit 7 

C2CE: 90 04 BCC $C2D4 Test former bit 7 

C2D0: A6 F4 LDX * $F4 Flag for quote mode active 
C2D2: DO 04 BNE $C2D8 Is active, then jump 

C2D4: 70 02 BVS $C2D8 Test former bit 6 

C2D6: 09 40 ORA # $40 Set bit 6 for ASCII 

C2D8: 20 FF C2 JSR SC2FF Test for" and set flags 

C2DB: A4 EB LDY * SEB Get current cursor line in Y-reg 
C2DD: CC 30 0A CPY $0A30 Last column already reached? 
C2E0: 90 OA BCC $C2EC No, not yet 

C2E2: A4 EC LDY * SEC Get current cursor column X-reg 
C2E4: C4 EA CPY * SEA Compare with end 

C2E6: 90 04 BCC $C2EC End line not yet reached 

C2E8: 66 D6 ROR # $D6 Shift carry into bit 7 of $D6 
C2EA: 30 03 BMI $C2EF If set then new line 

C2EC: 20 ED CB JSR _ $CBED Cursor one position right 
C2EF: C9 DE CMP. # SDE Compare to ASCII "PI" 

C2F1: DO 02 BNE $C2F5 Is not pi 

C2F3: A9 FF LDA # SFF Else load adapted pi code 
C2F5: 85 EF STA * SEF Store as print character 

C2F7: 68 PLA Get X-register (line) via 

C2F8: AA TAX Acc from stack 

C2F9: 68 PLA Get Y-register (column) 

C2FA: A8 TAY Via ac from stack 

C2FB: A5 EF LDA * SEF Print char from temp storage 
C2FD: 18 CLC Flag for OK 

C2FE: 60 RTS Return from the subroutine 
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KAEKKKEKKKKKKKEKKKKKEKKKKKKKKKKKK 


C2FF: 
C301: 
C303: 
C305: 
C307: 
C309: 
C30B: 


co 
DO 
A5 
49 
85 
Ag 
60 


22 
08 
F4 
01 
F4 
22 


# $22 
$C30B 
* SF4 
# $01 
* SPF4 
# $22 


KKKEKKKKKEKKEKEKKKKEKKKKKKKKKKKKEKKK 


C30C: 
C30E: 
C310: 
C313: 
C315: 
C317: 
C319: 
C31A: 
C31B: 
C31c: 
C31D: 
C31E: 
C31F: 


AS 
85 
20 
AS 
FO 
46 
68 
A8 
68 
AA 
68 
18 
60 


EF 
FO 
57 CD 
F5 
02 
F4 


LDA 
STA 
JSR 
LDA 
BEQ 
LSR 
PLA 
TAY 
PLA 
TAX 
PLA 
CLC 
RTS 


* SEF 
* SFO 
$CD57 
* SFOS 
$C319 
* SF4 
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C320: 
C322: 
C324: 
C326: 
C328: 
C32A: 
C32C: 
C32E: 
C330: 
C332: 
C333: 


09 
A6 
FO 
09 
A6 
FO 
Cé 
24 
10 
48 
20 


40 
F3 
02 
80 
FS 
02 
F5 
F6 
09 


E3 C8 


ORA 
LDX 
BEQ 
ORA 
LDX 
BEQ 
DEC 
BIT 
BPL 
PHA 
JSR 


# $40 
* SF3 
$C328 
# $80 
* $FS 
$C32E 
* SES 
* SFE 
$C33B 


$C8E3 
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Test for ('') and set flags 


Compare to quote 

Other character, then end 
Get current quote mode 
Reverse mode 

And store again 

Reload acc with ASCII value 
Return from subroutine 


BSOUT continuation 


Save current print character as 
Last-printed character 

Set cursor to current column 
Get insert mode flag 

Insert mode is not active 
Shift quote mode flag 

Get first value from stack 
And into Y-register 

Get second value from stack 
And into X-register 

Get acc from stack 

Clear carry for OK 

Return from subroutine 


Convert from ASCII to 
POKE-Code 


Set bit 2 of the acc 

Get flag for RVS mode active 
on/off. Not reverse character 
Set high-rder bit (reverse) 
Insert-mode flag 

No insert mode 

Decrement the counter 

Test auto-insert flag 

Jump if not active 

‘Save acc on the stack 

Screen mode behind cursor 
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C336: 
C338: 
C33A: 
C33B: 


A2 
86 
68 


00 
FS 


20 2F CC 


LDX 
STX 
PLA 
JSR 


# $00 
* SF5 


$CC2F 
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C33E: 
C340: 
C342: 
C344: 
C346: 
C348: 
C34A: 
C34C: 
C34F: 
C352: 
C354: 
C357: 
C359: 
C35A: 
C35C: 
C35E: 
C361: 
C362: 


C4 
90 
A6 
B4 
90 
24 
30 
20 
20 
90 
20 
BO 
38 
24 
70 
20 
18 
60 


E7 
OA 
EB 
E4 
04 
F8 
16 
5C 
ED 
OE 
74 
08 


F8 
04 
7¢ 


cl 
CB 


CB 


C3 


CPY 
Bcc 
LDX 
CPX 
BCC 
BIT 
BMI 
JSR 
JSR 
BCC 
JSR 
BCS 
SEC 
BIT 
BVS 
JSR 
CLC 
RTS 


* SE7 
$C34C 
* SEB 
* SE4 
$C34C 
* SE8 
$C362 
$C15C 
$CBED 
$C362 
$CB74 
$C361 


* SF8 
$C362 
$C37C 


RKKEKKKKKKKKKKKKKRKEKKKKKKKKKKKKK 


C363: 
C365: 
C367: 
C369: 
C36B: 
C36D: 
C36F: 
C371: 
C373: 
C376: 
C377: 


A6 
B4 
90 
24 
10 
A5 
85 
BO 
20 
18 
E6 


EB 
E4 
OE 
Fe 
06 
E5 
EB 
06 
Aé6 


EB 


C3 


* SEB 
* SE4 
$C377 
* SF8 
$C373 
* $E5 
* SEB 
$C379 
$C3A6 


* SEB 
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Set insert-mode flag 

Back to zero 

Get acc from stack again 
Output character at current pos 


Cursor at line end 


Compare, right window-border 
Right edge not yet reached 

Get current cursor line in X-reg 
Compare, lower window border 
Lower border not yet reached 
Test scroll flag 

No scrolling then end 
Determine start addr of curnt line 
Cursor one character to the right 
No new line 

Test line overflow bit 

Line overflow bit is set 

Set carry bit for no scrolling 
Test scroll bit 

Jump if no scrolling 

Insert line at X 

Clear carry for scrolled 

Return from the subroutine 


Perform linefeed 


Get current cursor line in X-reg 
Compare, lower window border 
Lower border not yet reached 
Test scroll bit 

Scrolling possible 

Load upper window border, acc 
Write current cursor line 
Unconditional jump to $C379 
Scrolling 

Carry clear for OK, scrolled 
Increment curent cursor line by 1 
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C379: 


4c 5c Cl 


JMP 


$c15c 


KKEKKKKKKKKKKKKKEKKKKKKKKKKKKKKK 


C37C: 
C37E: 
C380: 
C382: 
C384: 
C386: 
C388: 
C38B: 
C38D: 
C38F: 
C391: 
C392: 
C395: 
C396: 


C399: 


C39A: 


C39D: 
C3A0: 
C3A3: 


A6 
30 
E4 
90 
E6 
A6 
20 
A4 
E4 
FO 
CA 
20 
E8 
20 
CA 
20 
4c 
20 
4c 


E8 
06 
EB 
02 
E8 
E4 
5E 
E6 
EB 
OF 


76 
83 
OD 
88 


A5 
93 


cl 


CB 


CB 


c4 
C3 
c4 
CB 


LDX 
BMI 
CPX 
BCC 
INC 
LDX 
JSR 
LDY 
CPX 
BEQ 
DEX 
JSR 
INX 


* SEB 
$C386 
* SEB 
$C386 
* $E8 
* SE4 
$C15E 
* SE6 
* SEB 
$C3A0 


$CB76 
$CB83 
$c40D 
$C388 


$C4A5 
$CB93 
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C3A6: 
C3A8: 


C3A9: 


C3AC: 


C3AE: 
C3B0: 
C3B2: 
C3B4: 
C3B5: 
C3B8: 
C3BA: 
C3BC: 
C3BE: 
C3C0: 


A6 
E8 
20 
90 
E4 
90 
A6 
E8 
20 
C6 
24 
30 
Ccé 
A6 


E5 


76 
0A 
B4 
F6 
ES 


85 
EB 
E8 
02 
E8 
E5 


CB 


CB 


LDX 
INX 
JSR 
BCC 
CPX 
BCC 
LDX 
INX 
JSR 
DEC 
BIT 
BMI 
DEC 
LDX 


* SE5 


$CB76 
$C3B8 
* SEA 
$C3A8 
* SE5 


$CB85 
* SEB 
* SE8 
$C3C0 
* SE8 
* $E5 
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Determ. start addr of current line 
Insert line (at line X) 


Start of the running input line 
Line is a following-line 
Compare with current cursor line 
Cursorline reached? 

Incr the start of running inp line 
Load low window-border X-reg 
Set address of the current line 
Load left window-border, Y-reg 
Compare with current cursor line 
Cursor line is lower border 
Decrement line by 1 and then 
Test the line overflow bit 

Back to the current line 

Set/clear line overflow bit 

Back to previous line 

MOVLIN: copy a window line 
Back to the loop 

Clear line X 

Set the line carry bit 


Scroll up 


Load upper window-border in 
X-reg & increment by 1 line 
Test the line overflow bit 

No overflow in line 

Compare lower window-border 
Border not yet reached 

Load upper window-border in 
X-reg &increment by 1 

Set line overflow bit 
Decrement crnt cursor line by 1 
Test bit 7 of the input start line 
And jump if set 
Else decrement the input line 
Load upper window-border in 
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C3C2: 
C3C4: 
C3C6: 
C3C8: 
C3CB: 
C3CD: 
C3D0: 
C3D1: 
C3D4: 
C3D5: 
C3D7: 
C3D9: 
C3DB: 


E4 
BO 
C6 
20 
A6 
20 
08 
20 
28 
90 
24 
30 
60 


DF 
02 
DF 
DC C3 
E5 
76 CB 


85 CB 


04 


F8 
CB 


* SDF 
$C3C8 
* SDF 
$C3DC 
* SES 
$CB76 


$CB85 
$C3DB 


* SF8 
$C3A6 
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C3DC: 
C3DF: 
C3E1: 
C3E3: 
C3E5: 
C3E6: 
C3E9: 
C3EA: 
C3ED: 
C3EE: 
C3F1: 


20 
A4 
E4 
BO 
E8 
20 
CA 
20 
E8 
20 
4c 


5E Cl 
E6 
B4 
OF 


76 CB 


83 CB 


OD C4 
DC C3 


JSR 
LDY 
CPX 
BCS 
INX 
JSR 
DEX 


$C15E 
* SE6 
* SE4 
SC3F4 


$CB76 


$CB83 


$Cc40D 
$C3DC 
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C3F4: 
C3F7: 
C3F9: 
C3FC: 
C3FF: 
C401: 
C403: 
C405: 
C406: 
C407: 


20 
A9 


A5 C4 
TE 
00 DC 
01 DC 
DF 
09 
00 


FC 


JSR 
LDA 
STA 
LDA 
CMP 
BNE 
LDY 
NOP 
DEX 
BNE 


$C4A5 
* S$7F 
$DC00 
$Dc01 
# SDF 
$c40C 
# $00 


$c405 
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X-reg. Compare with cursor line 
If >= upper border, then jump 
Decrement cursor line 

Move remaining screen 

Load upper window-border into 
X-reg. Test line overflow bit 
Save flags on stack 

Clear overflow bit of current line 
And get flags back 

If carry clear then end 

Else test scroll flag 

Bit 7 set then scroll 

Return from subroutine 


Clear line X (with move) 


Announce line X 

Load left window-border, Y-reg 
Compare lower window border 
Border is reached 

Pointer points to following-line 
Test line overflow bit 

Point to current line again 
Set/clear line overflow bit 
Point back to following-line 
MOVLIN: copy window line 
Copy next line 


Poll Commodore key - wait 


Clear line X 

Flag or run/direct mode 

In PRA inCIA for keyboard read 
Get keybaord matrix 
Commodore key pressed? 

If not pressed then end 
Commodore key is pressed 

A delay loop is executed when 
Scrolling in order to delay the 
Output somewhat 
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C409: 
C40A: 
c40C: 


88 
DO 
60 


F9 


DEY 
BNE 
RTS 


$c405 
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C40D: 
C40F: 
C4l1l: 
C414: 


C416: 


C418: 


C41B: 


C41D: 
C420: 


C422: 
C424: 
C426: 
C428: 
C42A: 
C42C: 
C42E: 
C430: 


C432: 


C433: 
C435: 


24 
30 
BD 
85 
85 
BD 
29 
0D 
85 
29 
09 
85 
Bl 
91 
Bl 
91 
c4 
c8 
90 
60 


D7 
25 
33 
DC 
DA 
4c 
03 
3B 
DB 
03 
D8 
DD 
DA 
E0 
DC 
E2 
E7 


F3 


co 


co 


OA 


* $D7 
$C436 


$C033,X 


* $DC 
* SDA 
$CO4C, 
# $03 
$0A3B 
* $DB 
# $03 
# $D8 
* $DD 


xX 


($DA) ,Y 
(SEO) ,Y 
($DC) ,Y¥ 
($E2) ,Y 


* SET 


$C428 
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C436: 
C439: 
C43C: 
C43E: 
C441: 


C443: 
C446: 
C449: 
C44C: 
C44F: 
C450: 


8E 
8C 
A2 


31 
32 
18 
DA 
80 
cc 
E6 
31 
33 


DA 


OA 
OA 


CD 


cD 
cD 
OA 
CO 


STX 
STY 
LDX 
JSR 


$0A31 
$0A32 
# $18 
$CDDA 
# $80 
$CDCC 
SCDE6 
$0A31 


$C033,X 


A 
* SDA 
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The loop counts from 0 to 
65536 and then stops 
Return from the subroutine 


MOVLIN: Copy a window line 


Test 40/80-column mode 
Jump if 80-column mode 
Get low byte of the current line 
Store low byte in $DA & $DC 


Get high byte of the current addr 
Mask out bits 2-7 

And OR with video base address 
And save 

Combine bits 0 & 1 with base 
Address of the color RAM 

And store as high byte 

Get source character and save it 
at the destination address. Then 
Get the source color &store it at 
The source address too 
Compare, right window-border 
Increment the column pointer 
Jump if not the end 

Return from the subroutine 


Copy a line in 80-column 


Store line number temporarily 
Store column 

Register 24 contains COPY bit 
And get register value 

Set COPY bit and store 
Register back in VDC 

Set update address to current pos 
Get the line to copy 

Low byte of the line to copy 
Times two because 80-column 
And store low byte 
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C452: BD 4C CO LDA $c04c,Xx Get high byte of the line to copy 


C455: 29 03 AND # $03 And mask out bits 3-7 

C457: 2A ROL A Get carry in (*2) 

C458: OD 2E 0A ORA SOA2E Add video RAM base 

C45B: 85 DB STA * SDB And save as high byte 

C45D: A2 20 LDX # $20 Block-start address high 
C45F: 18 CLC Clear carry for addition 

C460: 98 TYA Get column in acc and 

C461: 65 DA ADC * SDA Add low byte 

C463: 85 DA STA * SDA Start addr.+column to low byte 
C465: A9 00 LDA # $00 Load acc with zero in order to 
C467: 65 DB ADC * SDB Add to the high byte 

C469: 85 DB STA * SDB And save as the new high byte 
C46B: 20 CC CD JSR §$cDCC And as the block-start address 
C46E: E8 INX Pointer to block-start addr low 
C46F: A5 DA LDA * SDA Get the low byte of the dest 
C471: 20 CC CD JSR $cDCcC address and inform VDC 
C474: 38 SEC Set carry for subtraction 

C475: A6 ET LDX * $E7 Load right window-border into 
C477: E8 INX _X-reg. Plus one 

C478: 8A TXA And then into acc 

C479: ED 32 0A SBC $0A32 Subtract the current column 
C47c: 8D 32 0A STA $0A32 ’ And save as number 

C47F: A2 1E LDX # $S1E VDC word-count register 
C481: 20 cC cD JSR _ S$cDCC Start copying 

C484: A2 20 LDX # $20 Block-start address high 
C486: A5 DB LDA * $DB Get high byte of source address 
C488: 29 07 AND # $07 Mask bits 3-7 out 

C48A: OD 2F 0A ORA SOA2F And add attribute RAM 

C48D: 20 CC CD JSR _ $cDCC Set the registers 

C490: E8 INX Pointer to block-start address 
C491: AS DA LDA * SDA Low. Get source address low 
C493: 20 CC CD JSR _ $cDCC And set 

C496: 20 F9 CD JSR $CDF9 Set update address for attribute 
C499: AD 32 0A LDA $0A32 Get number of chars to copy 
c49c: A2 1E LDX # $1E Reg. 31 is word-count register 
C49E: 20 CC CD JSR _ $CDCC Copy 

C4A1: AE 31 0A LDX $0A31 Get current line back 

C4A4: 60 RTS Return from the subroutine 
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KKKKKKKKKKKKKEKKKEKKREKKERE KEKE Clear (line X) 40 column 


C4A5: A4 E6 LDY * SE6 Load left window-border, Y-reg 
C4A7: 20 85 CB JSR $CB85 Clear line overflow bit 

C4AA: 20 5E Cl JSR $C15E Get start address of line X 
C4AD: 24 D7 BIT * $D7 Test 40/80 column mode 
C4AF: 30 OF BMI $C4Cc0 Jump if 80-column mode 
C4B1: 88 DEY Dummy decrement, is 

incremented again 

C4B2: C8 INY Increment column pointer 
C4B3: A9 20 LDA # $20 Load acc with <space> 

C4B5: 91 EO STA ($E0),Y Store space in video RAM 
C4B7: AS Fl LDA * $F1 Color code for char output in acc 
C4B9: 91 E2 STA (SE2),Y¥ Store color in color RAM 
C4BB: C4 E7 CPY * $E7 Compare right window-border 
C4BD: DO F3 BNE $C4B2 Jump if not done 

C4BF: 60 RTS Return from the subroutine 
KKHKKKKKKKKKKKKK KKK KKKEEKKREKKK Clear line - 80 column 

Cc4c0O: 8E 31 0A STX §$0A31 Save X-register 

c4c3: 8C 32 0A STY $0A32 Save Y-register 

C4C6: A2 18 LDX # $18 Select register 24 

c4c8: 20 DACD JSR S$CDDA Get current value 

C4CB: 29 7F AND # $7F Clear copy bit 

c4cD: 20 CC CD JSR _ $cDCC And save new value 

C4D0: A2 12 LDX # $12 Update address high 

c4D2: 18 CLC Clear carry for addition 
C4D3: 98 TYA Get column in acc 

C4D4: 65 E0 ADC * SEO Add start address low 

C4D6: 48 PHA Store low address on stack 
C4D7: 8D 3C 0A STA $0A3C Store the low byte 

C4DA: A9 00 LDA # $00 Load acc with zero in order to 
c4pc: 65 El ADC * $E1 Add the carry to the high byte 
C4DE: 8D 3D 0A STA _ S$0A3D Store the high byte 

C4E1: 20 CC CD JSR _ $cDCC And put in the register 

C4E4: E8 INX Update address low 

C4E5: 68 PLA Get low byte from stack 
C4E6: 20 CC CD JSR _ S$cDCC Low byte to VDC 

C4E9: AQ 20 LDA # $20 Load acc with space 
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C4EB: 20 CA CD JSR S$CDCA And into VDC data register 
C4EE: 38 SEC Set carry for subtraction 

C4EF: A5 E7 LDA * SE7 Load right window-border in acc 
C4Fl: ED 32 0A SBC $0A32 Subtract start column 

C4F4: 48 PHA Save number on stack 

C4F5: FO 14 BEQ $C50B Start column = righ border 
C4F7: AA TAX Get number in X 

C4F8: 38 SEC Set carry for addition 

C4F9: 6D 3C 0A ADC $0A3C Add low byte 

C4FC: 8D 3C 0A STA SO0A3C And save again 

C4FF: A9 00 LDA # $00 Load acc with zero in order to 
C501: 6D 3D 0A ADC $0A3D Add the carry to the high byte 
C504: 8D 3D 0A STA S$O0A3D Save high byte 

C507: 8A TXA Get number of characters in acc 
C508: 20 3E C5 JSR $C53E Acc in word-count register 
C50B: A2 12 LDX # $12 Update address high 

C50D: 18 CLC Clear carry for addition 

C50E: 98 TYA Get column in acc 

C50F: 65 E2 ADC * SE2 And add low byte attribute 
C511: 48 PHA Save low byte on stack 

C512: A9 00 LDA # $00 Load acc with zero in order to 
C514: 65 E3 ADC * $E3 Add the carry 

C516: 20 CC CD JSR _ $cCDCC And write the high byte into the 
C519: E8 INX Register. Update address low 
C51A: 68 PLA Get low byte from stack 

C51B: 20 CC CD JSR S$cDCC And write in register 

C51E: AD 3D 0A LDA $0A3D Get high byte of dest address 
C521 .29:°507 AND # $07 Mask out bits 4-7 

C523: OD 2F 0A ORA SOA2F And combine with dest address 
C526: 8D 3D 0A STA $0A3D And save 

C529: A5 Fl LDA * $F1 Color code for char output in acc 
C52B: 29 8F AND # $8F Only color & ALT bit relevant 
C52D: 20 CA CD JSR SCDCA Get reg contents from DATA reg 
C530: 68 PLA Get number from stack 

C531: FO 03 BEQ $C536 If zero then jump 

C533: 20 3E C5 JSR $C53E Output color 

C536: AE 31 0A LDX $0A31 Get X-register back 

C539: A4 E7 LDY * SE7 Load right window-border Y-reg 
C53B: 60 RTS Return from subroutine 
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KAEKKR KKK KARR KKK KK KEKE KARR RK RK KK Write acc times character to 


update register 
C53C: A9 01 LDA # $01 Load counter with one 
C53E: A2 1E LDX # $1E Select word-count register 
C540: 20 CC CD JSR $cpcc And determine value 
C543: 2C 00 D6 BIT S$Dé600 Test status bit 
C546: 10 FB BPL $C543 And wait until done 
C548: A2 12 LDX # $12 Update address high 
C54A: 20 DA CD JSR S$CDDA Get current value 
C54D: CD 3D 0A CMP S$0A3D Compare w/ high byte dest addr. 
C550: 90 EA BCC $C53c Doesn't match--correct error 
C5522. A213 LDX # $13 Update address low 
C554: 20 DACD JSR SCDDA Get current value 
C557: CD 3C 0A CMP $0A3C Compare with dest address low 
C55A: 90 EO BCC $C53C Doesn't match-correct error 
c55C: 60 RTS Return from the subroutine 


KEK KEK KEKKKKKKKERKAKREKKREKKR KKK KA Check the keybaord matrix 


G55Ds- A501 LDA * $01 Get bit 6 from zero-page data reg 
C55F: 29 40 AND # $40 Processor port. Bit 6 indicates if 
C561: 49 40 EOR # $40 the 40 or 80 char set is selected 
C563: 4A LSR A Invert bit 6 and bring to bit 
C564: 4A LSR A Position 4. Reset shift flag 
C565: 85 D3 STA * $D3 And store 40/80 mode 

C567: AO 58 LDY # $58 Code for "no key" in zero page 
C569: 84 D4 sTy * $D4 Store pointer for pressed key 
C56B: A9 00 LDA # $00 Check value for matrix lines 
C56D: 8D 00 DC STA $DC00 Responsible for matrix lines 1-8 
C570: 8D 2F DO STA §$D02F Responsible for matrix line 9-11 
C573: AE 01 DC LDX s$DC0l Port B=input of matrix columns 
C576: EO FF CPX # SFF Check if a key is pressed 

C578: DO 03 BNE $C57D Check which key is pressed 
C57A: 4C 97 C6 JMP $C697 No key, then continue 

C57D: A8 TAY Displ cntr start of keyboard table 
C57E: AD 3E 03 LDA $033E Copy address low of keyboard 
C581: 85 CC STA * SCC decoding table 1a in zero page 
C583: AD 3F 03 LDA $033F Copy address high of keyboard 
C586: 85 CD STA * SCD decoding table 1a in zero page 
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C588: A9 FF LDA # SFF Test value for keyboard matrix 
C58A: 8D 2F DO STA S$D02F Set test lines 9-11 to high 
C58D: 2A ROL A Bit position of the test line to 0 
C58E: 24 D3 BIT * $D3 Pointer if testing 1-8 or 9-11 
C590: 30 05 BMI $C597 If testing lines 9-11 then skip 
C592: 8D 00 DC STA _ §$DC00 Test value in Port A 

(matrix line 1-8) 
C595: 10 03 BPL $C59A Skip test of matrix lines 9-11 
C597: 8D 2F D0 STA S$D02F Test port A* (matrix lines 9-11) 
C59A: A2 08 LDX # $08 Set counter for 8 matrix columns 
c59C: 48 PHA Store line test value in acc 
C59D: AD 01 DC LDA §$DC01 Compare port B (output the 
C5A0: CD 01 DC CMP $pC01 matrix columns) with port B 
C5A3: DO F8 BNE $C59D And wait 
C5A5: 4A LSR A Test the output value of matrix 
C5A6: BO 17 BCS S$C5BF Columns bit by bit. C=1 -no key 
C5A8: 48 PHA Store matrix clmns output value 
C5A9: B1 CC LDA ($CC),Y Get key code from keybrd table 
C5AB: C9 08 CMP # $08 Key code 8 is the ALT key 
C5AD: FO 08 BEQ $C5B7 To corresponding evaluation 
C5AF: C9 05 CMP # $05 Check if code for SHIFT, C=, 
C5B1: BO 09 BCS $C5BC or Ctrl. No, then continue 
C5B3: C9 03 CMP # $03 Is it code for the BREAK key? 
C5B5: FO 05 BEQ $C5BC Yes then continue for break key 
C5B7: 05 D3 ORA * $D3 Zero-page pointer - shift pattern 
C5B9: 85 D3 STA * $D3 Combine with the acc 
C5BB: 2C .Byte $2C Skip to $CSBE 
C5BC: 84 D4 STY * $D4 Place in zero-page for key code 
C5BE: 68 PLA Get matrix columns text value 
C5BF: C8 INY Keyboard table disp. counter + 1 
c5Cc0: CA DEX Matrix column loop counter - 1 
c5cl: DO E2 BNE $C5A5 Loop until all columns tested 
C5C3: C0 59 CPY # $59 Are all lines and columns tested? 
c5C5: BO 10 BCS $C5D7 Yes, then evaluate key press 
C5C7: 68 PLA Get line test value from stack 
C5C8: 38 SEC Set carry flag for shifting the 
c5c9: 2A ROL A Line test value 
C5CA: BO C2 BCS $C58E Continue test matrix lines 1-8 
c5cc: 8D 00 DC STA $DCO00 Set port A test value high ($FF) 
C5CF: 26 D3 ROL * $D3 Merge bit 7 in shift pattern flag 
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C5D1: 38 SEC 

C5D2: 66 D3 ROR # $D3 
C5D4: 2A ROL A 
C5D5: DO B7 BNE $C58E 
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C5D7: 06 D3 ASL * $D3 
C5D9: 46 D3 LSR * $SD3 
CSDB: 68 PLA 

C5DC: AS D4 LDA * $D4 


C5DE: 6C 3A 03 JMP ($033A) 
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C5E1: C9 57 CMP # $57 
C5E3: DO 13 BNE SC5F8 
C5E5: 24 F7 BIT * SF7 
C5E7: 70 5A BVS $C643 
C5E9: AD 25 0A LDA S$0A25 
C5EC: DO 55 BNE $C643 
C5EE: A9 OD LDA. # $0OD 


C5F0: 4D 210A EOR §$0A21 
C5F3: 8D 21 0A STA $0A21 


C5SF6: 50 30 BVC $C628 
C5SF8: A5 D3 LDA * $D3 
CSFA: FO 55 BEQ $cC6é51 
C5FC: C9 10 CMP # $10 
C5SFE: FO 44 BEQ $cC644 
C600: C9 08 CMP # $08 
C602: FO 42 BEQ $C646 
C604: 29 07 AND # $07 
C606: C9 03 CMP # $03 
C608: DO 25 BNE $C62F 
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C60A: A5 FT LDA * $F7 
c60C: 30 43 BMI $c651 
C60E: AD 25 0A LDA §$0A25 


Because remaining matrix lines 
9-11 are tested via port A* 
Clear bit for matrix line test 9-11 
Jump: test next matrix line 


Evaluate the keyboard result 


Eliminate the set bit 7 in the shift 
pattern flag (marker port A* test) 
Clear line test value from stack 
Code fro pressed key in acc 
Vector - keyboard read ($C5E1) 


Routine: evaluate keybaord 


Was it the "No Scroll" key? 

No, then skip 

Z-P pause flag bit 6: 1=disable 
If pause not allowed then RTS 
Load acc with last shift pattern 
Not 0, then exit via RTS 

Invert bits 0,1, and 3 of the 

Z-P pause pointer and put in the 
Zero-page pause pointer 
Keyboard repeat routine 

Get current shift pattern in acc 
No shift pattern, evaluate normal 
Was the 40 character set chosen 
Yes, then to 40 evaluation 

Was ALT keypress indicated? 
Yes, then to ALT evaluation 
Mask bits 3-7 from shift pattern 
Was C=-SHIFT switch selected? 
No, re-evaluate shift pattern 


C=/Shift character set switch 
Check flag for C= shift switch 


Switch prohibit, to repeat routine 
Get last-saved shift pattern 
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Céll: 
C613: 
C615: 
C617: 
C619: 
C61B: 
C61D: 
C620: 
C623: 
C625: 
C628: 
C62A: 
C62D: 
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C62F: 
C630: 
C632: 
C634: 
C636: 
C638: 
C63A: 
C63C: 
C63E: 
C640: 
C643: 


8D 
DO 


OA 
cg 
90 
A9 
A6 
E0 
DO 
24 
70 
8E 
60 


3E 
D7 
09 
Fl 
80 
Fl 
28 C6 
2c OA 
02 
2C OA 
08 
25 OA 
22 


08 
12 
06 
D4 
0D 
OA 
F7 
06 
21 0A 


BNE 
BIT 
BPL 
LDA 
EOR 
STA 
JMP 
LDA 
EOR 
STA 
LDA 
STA 
BNE 


$c651 
* $D7 
$C620 
* SF1 
# $80 
* SF1 
$C628 
$O0A2C 
# $02 
$OA2C 
# $08 
$0A25 
$c651 


A 

# $08 
$C646 
# $06 
* $D4 
# $0D 
$C646 
* SET 
$C646 
$0A21 
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C644: 
C646: 
C647: 
C64A: 
Cé64C: 
C64F: 


A9 


AA 


BD 
85 


OA 


3E 03 
ce 


BD 3F 03 


85 


CD 


LDA 
TAX 
LDA 
STA 
LDA 
STA 


# SOA 


$033E,X 


* SCC 


$033F,X 


* SCD 
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Not zero, then to repeat routine 
Check for 40/80 column screen 
Positive = 40 column screen 
Color code for char output in acc 
Invert bit 7 of the color code 
Store color code for char code 
Jump over VIC character switch 
System pointer for text/screen 
Get base and invert bit 2 of this 
Pointer 

Initialize the system pointer with 
8 for the last shift pattern 

Jump to repeat routine 


Load and evaluate decoder table 
corresponding to the shift pattern 


Multiply shift pattern for disp *2 
If shift pattern for shift or C= 
Found, then load decoder table 
Default value CTRL pattern, acc 
Check offset of the decoder table 
If it was the 13th key (S-key) 
Then set the pause flag, else skip 
Check if pause/Ctrl-s is allowed 
Not allow, evaluate decod. table 
Get pause flag with key value 13 
Return from the subroutine 


Set the start address of the 
decoder table corresponding to 
the shift pattern 


Set default value to table 5a 

# of the decoder table in X-reg 
Copy address low of decoder 
table in zero-page memory 
Copy address high of decoder 
table in zero-page, memory 
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C651: 
C653: 
C655: 
C656: 
C658: 
C65A: 
Cé65C: 
C65F: 
C661: 
C663: 
C666: 
C668: 
C66A: 
C66C: 
C66E: 
C670: 
C672: 
C674: 
C676: 
C678: 
C67A: 
C67C: 


FO 
co 
DO 


D4 
cc 


D5 
07 
10 
24 OA 
36 
TF 
22 OA 
16 
SA 
TF 
29 
14 
0c 
20 
08 
1D 
04 
11 
46 


* $D4 


($CC) ,Y 


* $D5 
$C661 
# $10 
$0A24 
$C697 
# STF 
$0A22 
SC67E 
$C6C4 
# S7F 
$C697 
# $14 
SC67E 
# $20 
SC67E 
# $1D 
SC67E 
# $11 
$C6C4 
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C67E: 
cé68gl: 
C683: 
C686: 
C688: 
C68B: 
C68D: 
C68F: 
C692: 
C694: 
C695: 


Ac 
FO 
CE 
DO 
CE 
DO 
AO 
8C 
A4 
88 
10 


24 OA 
05 
24 OA 
3c 
23 0A 
37 
04 
23 OA 
DO 


2D 


LDY 
BEQ 
DEC 


$0A24 
$C688 
$0A24 
$Ccé6c4 
$0A23 
$céCc4 
# $04 
$0A23 
* $D0 


$Cc6C4 
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Routine REPEAT 
Repeat the keybaord logic 


Displ. to table start in Y-reg 
Load acc with char code from 
Table and store char in X-reg 
Compare with pointer for current 
key. If equal, to repeat check 
Counter for key repeat delay 
Initialize with $10 

Jump to keypress evaluation 
Mask out bit 7, not a RVS char 
Check pointer for key repeat 
Allow all keys ($80), skip 
Now key allowed ($40), skip 
Check if "character invalid" 
Yes, the default read and RTS 
Was it the DEL key> 

Yes, then repeat evaluation 
Was it the space bar? 

Yes, then repeat evaluation 
Was it the <CRSR-right> key? 
Yes, then repeat evaluation 
Was it the <CRSR-down> key? 
No, skip repeat evaluation 


Key repeat evaluation 


Get counter for repeat delay 
Counter=0, then skip 

Repeat delay counter -1 

Not zero, default read and RTS 
Count speed for repeat -1 

Not zero, default read and RTS 
Count speed for key repeat 
Reinitialize with $04 

Offset of key buffer queue in Y 
If more than 1 character in buffer 
Then default read and RTS 


Abacus Software 


C-128 Internals 





KKRKEKKKKKEKKKKKKKKEKKKKKKKKKKKKKK 


C697: 4E 25 0A LSR = §$0A25 


C69A: A4 D4 LDY * $D4 
c6é9c: 84 DS STY * $D5 
C69E: EO FF CPX # SFF 
C6A0: FO 22 BEQ $Cé6C4 
C6A2: AY 00 LDA # $00 
C6A4: 8D 21 0A STA $0A21 
C6A7: 8A TXA 

C6A8: A€6 D3 LDX * $D3 


C6AA: 4C C6 FC JMP S$FCC6 
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C6AD: A2 09 LDX # $09 
C6AF: DD DD C6 CMP $C6DD,X 
CéB2: FO 16 BEQ $C6CA 
Cé6éB4: CA DEX 

C6éB5: 10 F8 BPL $C6AF 
C6B7: A6 DO LDX * $DO 
C6B9: EC 20 0A CPX $0A20 
C6BC: BO 06 BCS $céc4 
C6BE: 9D 4A 03 STA $034A,X 
CéC1i: E8 INX 

C6C2: 86 DO STX * $DO 
céc4: AY 7F LDA # S7F 
cécé: 8D 00 DC STA $DCO00 
céc9: 60 RTS 
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C6éCA: BD 00 10 LDA $1000,X 
Cé6écD: 85 Dl STA * $D1 
CéCF: AY 00 LDA # $00 
C6éD1: CA DEX 

C6éD2: 30 06 BMI $C6DA 
céD4: 18 CLC 


CéD5: 7D 00 10 ADC $1000,X 
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Entry: No key pressed 


Divide last shift pattern by 2 
Copy Displ to decoder table start 
In pointer for current key 

Was it code for "no character"? 
Yes, then default read and RTS 
Reset the pause/Ctrl-S pointer 
for valid character 

Copy character code in acc 

Get current shift pattern in X-reg 
Back to kernal routine: KEY 


Evaluate and store keypress 


Loop counter - 10 function keys 
Compare acc with key code table 
Function key found, evaluate 
Decrement loop counter by 1 
Loop until all comparisons done 
Index: Keyboard buffer queue 
Compare with maximum size 
Max size reached, then skip 
Place char in keyboard buffer 
Increment keyboard buff. queue 
Index by 1 character 

Check keyboard matrix 

For default 

Return from the subroutine 


Prepare keyboard buffer for 
KEY 


Get length from KEY X 

And in KEY character counter 
The position of the KEY in the 
Entire table is detremined 
When all lengths added, end 
Else clear carry for addition 
Add length of KEY X 
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Cé6D8: 
Cé6DA: 
CéDC: 


90 
85 
60 


F7 
D2 


BCC 
STA 
RTS 


$CéD1 
* $D2 
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Cé6DD: 
Cé6éDF: 
C6E1: 
Cé6E3: 
C6E5: 
C6E6: 


85 
86 
87 
88 
83 
84 


89 
8A 
8B 
8C 
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C6E7: 
C6E9: 
C6EB: 
C6EE: 
C6FO: 
C6F3: 
C6F5: 
Cé6F8: 
C6FA: 
C6FC: 
C6FE: 
C700: 
C703: 
C705: 
C708: 
C70A: 
C70D: 
C70F: 
C712: 
C715: 
C717: 
C71A: 
c71c: 
C71F: 
C721: 


24 


D7 
41 
27 
3c 
28 
37 
26 
co 
co 
2E 
14 
28 
EC 
2A 
E0 
26 
10 
29 
7¢ 
E2 
2A 
Fl 
29 
80 
40 


OA 


OA 


OA 


OA 
Cl 


OA 


OA 


cc 


BIT 
BMI 
LDA 
BNE 


* $D7 
$C72C 
$0A27 
$C72C 
$0A28 
$C72C 
$0A26 
# $CO 
# $CcOo 
$C72C 
# $14 
$0A28 
* SEC 
SOA2A 


(SEO) ,Y 


$OA26 
$C71F 
$0A29 
$c17c 


($E2) ,Y 


SOA2A 
* SF1 
$0A29 
# $80 
$cc40 
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If no overflow, then continue 
Else store pointer 
Return from subroutine 


Key codes of 10 function keys 


Fl F2 
F3 F4 
F5 F6 
F7 F8 
F9 (Shift-Run) 
F10 (Help-key) 


Flash VIC cursor 


Test for 40/80 column 

If 80 column then end 

Get VIC cursor mode 

Is turned off then end 

Else decrement the flash counter 
If not zero, then end 

Get VIC cursor 

Mask out bits 0-5 

Cursor steady or turned off? 

If so then end 

Set the VIC cursor flash counter 
To $14=20 

Get current cursor column Y-Reg 
Get color at cursor pos. for flash 
Get character at current column 
Test VIC cursor mode 

Character normal again 

Char at cursor pos before flash 
Set color RAM address 

Get color at cursor position 

Save as color before flash 

Color code-char output in X-Reg 
Char at cursor pos before flash 
Invert the negative bit 

Save character and color 
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C724: AD 26 0A LDA S$O0A26 Get VIC cursor mode 
C727: 49 80 EOR # $80 Negate the flash condition 
C729: 8D 26 OA STA S$0A26 And save again 

c72c: 60 RTS Return from the subroutine 


KAKA KKK KEK KER KER KK KEK KERR KEK KK BSOUT entry for screen output 


C72D: 85 EF STA * SEF Save character to print in z-page 
C72F: 48 PHA Save acc contents on stack 
C730: 8A TXA Save X-reg contents on stack 
C731: 48 PHA Via acc 

C732: 98 TYA Save Y-reg contents on stack 
C733: 48 PHA Via acc 

C734: AD 21 0A LDA $0A21 Check contents of z-p pause flag 
C737: DO FB BNE $C734 Wait until flag value is 0 

C739: 85 D6 STA * $D6 Clear input/get flag via keyboard 
C73B: A9 C3 LDA # $C3 High byte of continuation on 
C73D: 48 PHA stack, to jump to rouitine via 
C73E: A9 0B LDA # $0B RTS now the byte of the 

C740: 48 PHA continuation on the stack as well 
C741: A4 EC LDY * SEC Get current cursor columnY-Reg 
C743: AS EF LDA * SEF Get char to print - temp storage 
C745: C9 OD CMP # $0D Is it a carriage return <Cr> ? 
C747: FO 26 BEQ $C76F Yes, then output <CR> 

C749: C9 8D CMP # $8D Is it a shift-CR? 

C74B: FO 22 BEQ $C76F Yes, then output <shift/CR> 
C74D: A6 FO LDX * $FO Get value of previous character 
C74F: EO 1B CPX # $1B Was it <ESC>, then handle char 
C751: DO 03 BNE $C756 as <ESC> sequence, else to 
C753: 4C BE C9 JMP $C9BE $C756 - evaluate ESC sequences 
C756: AA TAX Character to output to X-Reg 
C757: 10 03 BPL $C75C Is it a character from 0 - 127 ? 
C759: 4C 02 C8 JMP $Cc802 No, evalute: exteneded ASCII 
c75c: C9 20 CMP # $20 Is characetr to output < Blank ? 
C75E: 90 56 BCC $C7B6 Yes, then evaluate control codes 
C760: C9 60 CMP # $60 Is it a letter? 

C762: 90 03 BCC $C767 Yes, then output letter 

C764: 29 DF AND # SDF Mask out bit 5 

C766: 2c .Byte $2C Skip to $C769 
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C767: 
C769: 
C76C: 
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C76F: 
C772: 
C773: 
C776: 
C778: 
C77A: 
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C77D: 
C77F: 


C781: 


C783: 
C785: 


C787: 


C789: 
C78B: 
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C78C: 
C78D: 
C78E: 
C78F: 
C790: 


C791: 


C792: 
C793: 
C794: 
C795: 
C796: 
C797: 


29 
20 
4c 


20 
E8 
20 
A4 
84 
20 


A5 
29 
85 
A9 
85 
85 
85 
60 


02 
07 
09 
OA 
0B 
0c 
OE 
OF 
11 
12 
13 
14 


3F 
FF C2 
22 C3 


C3 CB 


85 CB 
E6 
EC 
63 C3 


Fl 
CF 
Fl 
00 
F5 
F3 
F4 


AND # $3F 
JSR $C2FF 
JMP $C322 


JSR $CBC3 
INX 

JSR $CB85 
LDY * SE6 
STY * SEC 
JSR $C363 


be 
o 
> 
+ » F FE OF FE OF 


-Byte 
-Byte 
-Byte 
.-Byte 
-Byte 
-Byte 
-Byte 
-Byte 
-Byte 
-Byte 
-Byte 
-Byte 


$F1 
SCF 
$F1 
$00 
$F5 
$F3 
SF4 


$02 
$07 
$09 
SOA 
$0B 
$0c 
SOE 
SOf 
$11 
$12 
$13 
$14 
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Output letter 


Mask out bits 6/7 of the char 
Test for quote 
Output character 


<Carriage Return> - New line 


Search end of input line 

Clear the line overflow bit 

Of the following-line 

Load left window-border Y-reg 
Store the current cursor position 
Execute linefeed 


Reset Quote/Insert/RVS 


Color code for char output in acc 
Reverse and flash off for VDC 
Store color code for char output 
Load acc with zero for off 

And clear the bits: insert mode 
RVS flag 

Quote-mode flag 

Return from the subroutine 


Control codes 


2=underline on 
7=bell 
9=tab 
A=linefeed 
B=lock <Shift>/<Commodore> 
C=unlock <Sh>/<C=> 
E=lower case 
F=flash on 
11=cursor up 
12=reverse on 
13=home 
14=delete 
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C798: 
C799: 


18 
1D 


-Byte 
-Byte 


$18 
$1d 
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C79A: 
C79C: 
C79E: 
C7A0: 
C7A2: 
C7A4: 
C7A6: 
C7A8: 
C7AA: 
C7AC: 
C7AE: 
C7BO0: 
C7B2: 
C7B4: 


C6 
8D 
4E 
BO 
A5 
AB 
TE 
D4 
59 
cl 
B2 
1A 
60 
53 


c8 
cg 
co 
co 
c8 
c8 
c8 
c8 
C8 
C8 
c8 
C9 
co 
C8 


$C8C6 
$C98D 
$C94E 
$C9BO 
$C8A5 
SC8AB 
$C87F 
$C8D4 
$c859 
$c8cl 
$C8B2 
SC91A 
$c960 
$c853 
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C7B6: 
C7B9: 
C7BB: 
C7BD: 
C7BF: 
C7C1: 
C7C3: 
C7C5: 
C7C7T: 
C7C9: 
C7CB: 
C7CD: 


6C 
cg 
FO 
A6 
DO 
cg 
FO 
A6 
FO 
A2 
86 
4c 


34 03 
1B 
38 
F5 
08 
14 
0B 
F4 
07 
00 
EF 
26 C3 


JMP 

CMP 
BEQ 
LDX 
BNE 


($0334) 
# $1B 
$C7F5 
* SFS 
$C7C9 


CMP # $14 


BEQ 
LDX 
BEQ 


$C7D0 
* SFA 
$C7D0 


LDX # $00 


STX 
JMP 


* SEF 
$C326 
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18=set/clear tab 
1D=Cursor Right 


Addresses of the routines which 
execute control codes (-1) 
Accessed via RTS. 


Underline on 

Tab 

Bell 

Linefeed 

Disable <Sh>/<C=> 
Enable <Sh>/<C=> 
Lower case 

Flash on 

Cursor up 

Reverse on 

Home 

Delete 

Set/clear tab 

Cursor right 


Execute control code 


Vector character output with Ctrl 
Is character <ESC>? 

Yes, then end 

Insert mode set? 

Yes, then output char in reverse 
Is the character <Delete>? 
Then execute 

Is the quote-mode flag set? 

If so, then reverse character 
Clear the last-printed character 
In the zero-page 

And output character in reverse 
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C7D0: 
C7D2: 
C7D5: 
C7D7: 
C7D8: 
C7DA: 
C7DC: 
C7DF: 
C7E1: 
C7E2: 
C7E4: 


A2 
DD 
FO 
CA 
10 
A2 
DD 
FO 
CA 
10 
60 


0D 
8C C7 
1F 


F8 
OF 
4C CE 
04 


F8 


# $OD 
$C78C,X 
SC7F6 


$C7D2 
# SOF 
SCE4C,X 
SC7E5 


$C7DC 
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C7E5: 
C7E7: 
C7E9: 
C7EB: 


24 
30 
86 
60 


D7 
03 
Fl 


BIT 
BMI 
STX 
RTS 


* $D7 
$C7EC 
* SF1 
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C7EC: 
C7EE: 
C7FO: 
C7F3: 
C7F5: 


AS 
29 
1D 
85 
60 


Fl 
FO 
5C CE 
Fl 


LDA 
AND 
ORA 
STA 
RTS 


* SF1 
# SFO 
$CE5C,X 
* $F1 
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C7F6: 
C7F7: 
C7F8: 
C7F9: 
C7EC: 
C7FD: 
C800: 
c80l: 


9B C7 


9A C7 


TXA 
ASL 
TAX 
LDA 
PHA 
LDA 
PHA 
RTS 


$C79B,X 


$C79A,X 
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Compare A with possible control 
codes 


X is the counter for ctrl codes 
Compare with the table 
Found? Then jump to execution 
Else decrement the counter and 
Compare with next value 
Compare with the 16 possible 
Codes for changing the color 
Jump if found 

Else decrement counter and 
Compare with next value 
Returns from the subroutine 


Set color - 40-column 


Test 40/80-column mode 

Jump if 80-column mode 

Store color code for char outout 
Return from subroutine 


Set color - 80-column mode 


Color code for char output in acc 
Mask out lower nibble (bits 0-3) 
OR with color code table 

Store color code for char output 
Return from subroutine 


Execute control codes 


Pointer to acc and then 

Multiply by two because a 
16-bit value is being fetched 
Get low byte of the start address 
In acc and get 

High byte of the start address 

In acc. Accessed via 

RTS 
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ee 


KKKKKKKEKK KKK KKK KKRKR EKER EEK Analyze extended ASCII 


C802: 6C 36 03 JUMP ($0336) Vector char output with shift 


C805: 29 7F AND # S7F Mask out bit 7, not shifted 
C807: C9 20 CMP # $20 Compare with <space> 
C809: 90 09 Bcc $C814 Less than 32 

C80B: C9 7F CMP # $7F Is it ASCII code 127? 
C80D: DO 02 BNE $C811 If not then jump 

C80F: A9 5E LDA # $5E ASCII code for up-arrow 
C811: 4C 20 C3 JMP $C320 And output 

C814: A6 F4 LDX * SF4 Get quote-mode flag 
C816: FO 05 BEQ $C81D Jump if not set 

C818: 09 40 ORA # $40 © Else set bit 6 

C81A: 4C 26 C3  JMP $C326 Output as reverse character 
C81D: c9 14 cMP # $14 Is the character <INSERT>? 
C81F: DO 03 BNE $C824 Jump if not <INSERT> 
C821: 4C E3 C8 JMP S$C8E3 Else execute <INSERT> 
C824: A6 FS LDX * $F5 Get insert-mode flag 
C826: DO FO BNE $C818 If set, then as with quote 
C828: C9 11 CMP # $11 Compare to cursor up 
C82A: FO 3B BEQ $C867 Jump if cursor-up 

c82c: C9 1D CMP # $1D Cursor-left? 

C82E: FO 45 BEQ $C875 If yes, then execute 

C830: C9 OE CMP # SOE Compare if upper case 
C832: FO 5E BEQ $C892 Jump to execution 

C834: C9 12 cMP # $12 Reverse off? 

C836: DO 03 BNE $C83B No, then skip 

C838: 4C BF C8 JUMP SC8BF Else clear RVS mode 
C83B: C9 02 CMP # $02 Underline on? 

C83D: DO 03 BNE $C842 If not then jump 

C83F: 4C CE C8 JUMP S$C8CE Else set underline mode 
C842: C9 OF cMP # SOF Flash mode off? 

C844: DO 03 BNE $C849 Skip if not 

C846: 4C DC C8 JMP $c8DC Else clear flash mode 
C849: C9 13 CMP # $13 Is it <CLR/HOME>? 
C84B: DO 03 BNE $C850 Skip if not 

C84D: 4C 42 Cl JMP $c142 Else clear window 

C850: 09 80 ORA # $80 Clear bit 7 -- it must be a color 
C852: DO 86 BNE $C7DA And jump to evaluation 
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SS SSS? 


KREKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


C854: 
C857: 
C859: 


20 ED CB 
BO 04 
60 


JSR 
BCS 
RTS 


SCBED 
$C85D 


RHAEKKKKKKKKKKKEKKKEKKKKKKKEKKKKKK 


C85A: 
C85D: 
C860: 
C862: 
C863: 
C865: 
C866: 


20 63 C3 
20 74 CB 
BO 03 

38 

66 E8 

18 

60 


JSR 
JSR 
BCS 
SEC 
ROR 
CLC 
RTS 


$C363 
$CB74 
$C865 


# SE8 


RREEKKKKKKKKEKKKKKKKKKKKEKKKKKKKE 


C867: 
C869: 


C86B: 
C86D: 


C870: 


C872: 


A6 E5 
E4 EB 
BO F9 
20 5D C8 
C6 EB 
4c 5¢ Cl 


LDX 
CPX 
BCS 
JSR 
DEC 
JMP 


* SES 
* SEB 
$C866 
$C85D 
* SEB 
$C15C 


RKKKKKKKKKKKKKKKKEKKKKEKKKKKKKKE 


C875: 
C878: 


C87A: 


C87C: 
C87E: 


20 00 CC 
BO EC 
DO E9 
E6 EB 
DO ED 


JSR °* 


BCS 
BNE 
INC 
BNE 


$CC00 
$C866 
$C865 
* SEB 
$C86D 


RREKKKKKKKKKEKKEKKKKKKKKKKKKKKKKE 


C880: 
C882: 
C884: 


C887: 
C889: 


24 D7 
30 07 
AD 2C 0A 
09 02 
DO 10 


BIT 
BMI 
LDA 
ORA 
BNE 


* $D7 
$C88B 
$SOA2C 
# $02 
$C89B 
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Cursor right in window 


Cursor one position to the right 
New line begun 
Return from subroutine 


Cursor down 


Perform linefeed 

Test line-overflow bit 

Line too long 

Set carry and rotate 

It in the start input line 
Clear carry for OK 

Return from the subroutine 


Cursor up 


Load upper window-border in X 
Compare with current cursor line 
Is less than or equal 

Set line status 

Dec. current cursor line by 1 
Determine start addr current line 


Cursor left in window 


Cursor left 

Cursor not moved 

Cursor moved, no new line 
Incr. current cursor line by 1 
Unconditional jump 


2nd character set 


Test 40/80-column mode 
Jump if 80-column mode 

Get CHARROM base address 
Set bits 0 and 1 
Unconditional jump 
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C88B: 
C88D: 
C88F: 
C891: 


KKKKKKKKKKEKKEKKKEKKKKKKKKEKKKKKKE 


C892: 
C894: 
C896: 
C899: 


C89B: 
C89E: 


KHAEKKKKKKKKKKEKKKEKKEKKKKKKKKKKKKK 


C89F: 
C8Al1: 
C8A3: 
C8A5: 


KRKEKKKKKKKKKKEKKKKEKKEKKEKKKEKKKKKKK 


C8A6: 
C8A8: 


C8AA: 


C8AC: 


C8AE: 
C8BO0: 
C8B2: 


KKKEKKKEKKKKKKEKKKEKKKKKKKKKKKEKKKK 


C8B3: 
C8B5: 
C8B7: 


A5 
09 
85 
60 


24 
30 
AD 
29 


8D 
60 


A5 
29 
85 
60 


A9 
05 
30 
A9 
25 
85 
60 


Fl 
80 
Fl 


D7 
09 
2c OA 
FD 


2C OA 


Fl 
TF 
Fl 


80 
EF7 
04 
TF 
F7 
F7 


A5 FO 


cg 
DO 


13 
03 


LDA 
ORA 
STA 
RTS 


LDA 
AND 
STA 
RTS 


LDA 
ORA 
BMI 
LDA 
AND 
STA 
RTS 


LDA 


CMP 
BNE 


* S$F1 
# $80 
* SF1 


* $D7 
$C89F 
$0A2C 
# SED 


$0A2C 


* SF1 
# S7F 
* SF1 


# $80 
* $EF7 
$C8BO 
# STF 
* SFT 
* SE7 


* SFO 
# $13 
$C8BC 


Color code for char output in acc 
Select alternate character set 
Store color code for char output 
Return from subroutine 


<Shift> <Commodore> 


Test 40/80-column mode 
Jump if 80-column mode 

Get base address CHARROM 
Clear bits 0 and 1 


Store as new base address 
Return from the subroutine 


<Shift> <Commodore> 
80-column 


Color code for char output in acc 
Clear bit 7, first character set 

Set color code for char output 
Return from subroutine 


<Shift> <Commodore> 
enable/disable 


Set bit 7 to disable and OR 
With flag register 
Unconditional jump 

Clear bit 7 in order to 
Enable 

And save 

Return from subroutine 


Test for <Home>-<Home> 
combination 


Get last-printed character 
Was it HOME? 
If not, then end of the routine 
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C8B9: 20 24 CA JSR $CA24 Else cancel window 

C8BC: 4C 50 Cl UMP $c150 Jump to cursor home 
HRKKAKKKKKEKK KEK KKK KKKKRKKKKKK Set/clear reverse mode 

C8BF: A9 00 LDA # $00 Load acc with zero, clear RVS 
C8Cl: 2c .Byte $2Cc Skip to $C8C4 

C8Cc2: A9 80 LDA # $80 Set bit, turn RVS mode on 
c8c4: 85 F3 STA * $F3 And store flag 

C8C6: 60 RTS Return from subroutine 
KHRKKKKEKKKKKKEKKKKKEKKKEKKKEKKKKKEKK Turn underline on 

C8C7: A5 F1 LDA * $F1 Color code for char output in acc 
C8C9: 09 20 ORA # $20 Set bit 6 for underline on 

C8CB: 85 Fl STA * SF1 store color code for char output 
C8CD: 60 RTS Return from subroutine 
KRRKKKKKKKEKKKKKKKEKKKKEKKKKKKKKKE Turn underline off 

C8CE: A5 Fl LDA * $F1 Color code for char output in acc 
C8D0: 29 DF AND # SDF Clear bit 5, underline off 

C8D2: 85 Fl STA * SF1 Store color code for char output 
C8D4: 60 RTS Return from subroutine 
KKKKEKKKKKKKEKKKKKKKKKKKKKKKKKKE Set flash mode 

C8D5: A5 Fl LDA * $F1 Color code for char output in acc 
C8D7: 09 10 ORA # $10 Set bit 4 for flash on 

C8D9: 85 Fl STA * SF1 Store color code for char output 
C8DB: 60 RTS Return from the subroutine 
KREKKKKKKEKKKKKKKKKEKKKKKKKKKKKKK Turn flash mode off 

c8pc: AS Fl LDA * $F1 Color code for char output in acc 
C8DE: 29 EF AND # SEF Clear bit 4, no flash 

C8EO: 85 Fl STA * SF1 Store color code for char output 
C8E2: 60 RTS Return from the subroutine 
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KKKKKKKKKKKKKEKKKKKKKKKEKKKKEKE Perform insert 

C8E3: 20 1ECC JSR S$CC1E Copy cursor coordinates 

C8E6: 20 C3 CB JSR  $CBC3 Search for end of input line 
C8E9: E4 DF CPX * SDF Compare line with cursor line 
C8EB: DO 02 BNE SC8EF If changed then jump 

C8ED: C4 DE CPY * SDE Compare clmn with current clmn 
C8EF: 90 21 BCC $C912 Smaller 

C8F1: 20 3E C3 JSR §$C33E Cursor at line end 

C8F4: BO 22 BCS $C918 Cannot be scrolled 

C8F6: 20 00 CC JSR _ $cCc00 Cursor one to the left 

C8F9: 2058 CB JSR _ $CB58 Get char and color cursor pos 
C8FC: 20 ED CB JSR _ S$CBED Cursor one to the right again 
C8FF: 20 32 CC JSR $CC32 Output character 

c902: 20 00 cC JSR $cco0 Cursor one position to the left 
c905: A6 EB LDX * SEB Get current cursor line in X-reg 
C907: E4 DF CPX * $DF Compare w/ starting cursor line 
c909: DO EB BNE $C8F6 Copy next character 

C90B: C4 DE CPY * SDE Compare col. with starting col. 
C90D: DO E7 BNE S$C8F6 If not reached, continue 

C90F: 20 27 CC JSR §$CC27 Space at current cursor position 
C912: E6 F5 INC * $F5 Increment counter for insert 
e914: DO 02 BNE $C918 If not zero then jump 

C916: Cé FS DEC * SF5 Else reset insert again 

C918: 4C 32 C9 JMP $C932 Reset old cursor position 


KARKKKKKKKKKKKKRKKK KEK KK RKEKKREKE Delete character to left of cursor 


C91B: 20 75 C8 JSR $C875 Cursor left with bit manipulation 
C91E: 20 1B CC JSR S$CC1E Copy the cursor coordinate 
C921: BO OF BCS $C932 Cursor left not possible 

C923: C4 E7 CPY * $E7 Compare right window-border 
C925: 90 16 BCC $C93D Border not yet reached 

C927: A6 EB LDX * SEB Get current cursor line in X 
C929: E8 INX Increment the line by 1 

C92A: 2076 CB JSR _ $CB76 Test overflow bit 

C92D: BO OE BCS $C93D There is a following-line 

C92F: 2027 CC JSR $CC27 Else <space> at current position 
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KRKKKKKKKKRKKKKKKKKAK KKK KERR KKKE Set old cursor address again 
C932: A5 DE LDA * SDE Get column 

C934: 85 EC STA * SEC Store the current cursor column 
C936: A5 DF LDA * SDF Get line 

C938: 85 EB STA * SEB Write current cursor line 

C93A: 4C 5C Cl JMP §$c15c Determine start address of line 


KKK KKKKKKKKKEK KKK KARR KKEKKKRKEKK Delete character under cursor 


C93D: 20 ED CB JSR  $CBED Cursor one to the right 

C940: 2058 CB JSR  $cCB58 Get character and color at cursor 
C943: 2000 cc JSR $cco0 Cursor one to the left 

C946: 20 32 CC JSR $cc32 Character at cursor position 
C949: 20 ED CB’ JSR S$CBED Cursor back to the right 

c94c: 4C 23 C9 JMP $c923 Move line to cursor 
KKKKEKKKKKKKKKKKKKKKKKKKKKKKKKK Tab 

C94F: A4 EC LDY * SEC Get current cursor col. in Y-reg 
C951: C8 INY Increment the column pointer 
C952: C4 E7 CPY * SE7 Compare right window-border 
C954: BO 06 BCS $c95C No more tabs possible 

C956: 20 6C C9 JSR $cg9é6éC Get next tab position 

C959: FO F6 BEQ $C951 Cursor is at tab pos, again 
C95B: 2c .Byte $2C Skip to $C95E 

c95c: A4 E7 LDY * $E7 Right window-border to Y 
C95E: 84 EC STY * SEC Store the current cursor column 
C960: 60 RTS Return from subroutine 
KKKKKKKKKKRKKKKKKKKKKKKKKKK KKK Set/clear tab 

C961: A4 EC LDY * $EC Get current cursor col. in Y-reg 
C963: 20 6C C9 JSR $c96C Get tab byte 

C966: 45 DA EOR * SDA Reverse the tab bit 

C968: 9D 5403 STA $0354,xX And store again 

C96B: 60 RTS Return from subroutine 
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KK KKK KKK KKRAKK KERR ERE EK KKK Determine tab position 
C96C: 98 TYA Column to accumulator 
C96D: 29 07 AND # $07 Mask out bits 4-7=A MOD 7 
CO96F: AA TAX And to X-register as pointer 
C970: BD 6C CE LDA SCE6C,X Get power of 2 

C973: 85 DA STA * SDA And store in $DA 

C975: 98 TYA Column back to acc 

C976: 4A LSR A Shift acc right three times 
C977: 4A LSR A Amounting to INT(A/8) 
C978: 4A LSR A 

C979: AA TAX Back into X-reg as pointer 
C97A: BD 54 03 LDA §$0354,xX Get tab byte 

C97D: 24 DA BIT * SDA Test if 8th tab is set 

C97TF: 60 RTS Return from subroutine 


KKKKKKKKRKKKEKK KARR KKK KEKEREKE Clear the tabs (or reset) 


C980: A9 00 LDA # $00 Load acc with zero to clear 
C982: 2c .Byte $2C Skip to $C985 

C983: A9 80 LDA # $80 Every 8th position is a tab 
C985: A2 09 LDX # $09 All 10 tab bytes 

C987: 9D 54 03 STA $0354,xX Are written with the value 
C98A: CA DEX Decrement the counter and 
C98B: 10 FA BPL $C987 Jump if not yet done 

C98D: 60 RTS Return from subroutine 
KRKKKKKKKKKKKKKKKKKKKEKKKKKKKKK CHR$§(7) - Bell 

C98E: 24 F9 BIT * $F9 Test beep flag 

C990: 30 FB BMI $C98D No beep 

C992: AQ 15 LDA # $15 Set SID volume to 

C994: 8D 18 D4 STA $D418 15 (maximum) 

C997: AO 09 LDY # $09 Attack/decay constant 

C999: A2 00 LDX # $00 Sustain/release constant 
C99B: 8C 05 D4. sTY $D405 Place in the corresponding reg. 
C99E: 8E 06 D4 STX S$D406 (for voice 1) 

C9A1: A9 30 LDA # $30 Define high byte of frequency 
C9A3: 8D 01 D4 STA $D401 For voice 1 

C9A6: AQ 20 LDA # $20 Select sawtooth 
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C9A8: 8D 04 D4 STA $D404 
C9AB: AQ 21 LDA # $21 
C9AD: 8D 04 D4 STA $D404 
C9BO: 60 RTS 


KREKEKKKKKKKKKKEKKKKKKEKKKKKKKKKKK 


C9B1: AS EC LDA * SEC 
C9B3: 48 PHA 
C9B4: 20 C3 CB JSR $CBC3 
C9B7: 20 63 C3 JSR $C363 
COBA: 68 PLA 
COBB: 85 EC STA * SEC 
C9BD: 60 RTS 


RRKEKKKKKEKKKKKKKKKEKKEKKEKKEKKKKKKK 


C9BE: 6C 38 03 JMP ($0338) 
c9cl: C9 1B CMP # $1B 
c9Cc3: DO 05 BNE S$C9CA 
c9c5: 46 EF LSR * SEF 
C9C7: 4C 7D C7 JMP §$C77D 
COCA: 29 TF AND # S7F 
c9cc: 38 SEC 

C9CD: E9 40 SBC # $40 
COCF: C9 1B CMP # $1B 
C9D1: BO OA BCS $C9DD 
C9D3: OA ASL A 

C9D4: AA TAX 

C9D5: BD DF C9 LDA $C9DF,X 
C9D8: 48 PHA 

C9D9: BD DE C9 LDA S$C9DE,X 
C9DC: 48 PHA 

C9DD: 60 RTS 


KKEKKEKKKKKKKKKKKKKKKKEKKKKKKKEKE 


CODE: 9E CA SCA9IE 
C9BO: EC CA SCAEC 
C9E2: 15 CA SCAL5 
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And write to SID 

The tone is started 

By setting bit 0 

Return from subroutine 


<LF> - cursor column remains 


Get current cursor column in acc 
Save current column in acc 
Search for end of line 

Perform linefeed 

Get current column back 

Store the current cursor line 
Return from subroutine 


Execute ESC sequences 


Vector char output with ESC 

Is character <ESC>? 

Jump if another character 
Current character by 2 

Turn off all special functions 
Mask out bit 7, not reverse char 
Set carry for subtraction 
Subtract 64 from ASCTI value 
Compare with 27 

Return if character greater than Z 
Acc * 2 -- 16-bit value fetched 
And then to X as pointer 

Get high byte of exec. routine 
Save on stack 

Get low byte of routine on stack 
Jump to routine via 

RTS. Address is on the stack 


Addresses of the escape routine 
<ESC> @ - Clear cursor to end 


<ESC> A - Auto-insert on 
<ESC> B - Set bottom - screen 


Abacus Software 


C9E4: 
C9E6: 
C9EB: 
C9EA: 
C9EC: 
CORE: 
C9OFO: 
C9F2: 
COF4: 
C9OF6: 
COF8: 
COFA: 
COFC: 
COFE: 
CA0O0: 
CA02: 
CA04: 
CA06: 
CA08: 
CAOA: 
CAOC: 
CAOE: 
CA10: 
‘CA12: 


E9 
51 
OA 
20 
36 
39 
3c 
BO 
51 
El 
E4 
47 
7¢ 
8A 
75 
3E 
Fl 
13 
FD 
BB 
co 
2B 
82 
TE 


CA 
CA 
CB 
CB 
CB 
CB 
CA 
CB 
CB 
CA 
CA 
CB 
C7 
CA 
CA 
CB 
CA 
CA 
CA 
CA 
CA 
CD 
co 
co 


SCAE9 
SCA51 

SCBOA 
$CB20 
$CB36 
SCB39 

SCA3C 
$SCBBO 
$CB51 
$CAE1 

SCAE4 

$CB47 
$C77C 
SCA8A 
$CA75 

$CB3E 
SCAF1 
$CA13 
SCAFD 
SCABB 
SCAC9 
$CD2B 
$C982 

SCO7F 


KEKKKKKKEKKKKKKKKEKKKEKKKKKKKKKKK 


CA14: 
CA15: 
CA16: 
CA17: 
CA19: 
CA1B: 
CALD: 
CALF: 
CA21: 


18 
24 
38 
A6 
A5 
90 
85 
86 
4c 


EC 
EB 
11 
E4 
E7 
32 CA 


CLC 

-Byte $24 
SEC 

LDX * SEC 
LDA * SEB 
BCC $CA2E 
STA * SE4 
STX * $E7 
JMP $CA32 
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<ESC> C - Auto-insert off 
<ESC> D - Delete current line 
<ESC> E - Cursor flash off 
<ESC> F - Cursor flash on 
<ESC> G - Enable beep 

<ESC> H - Disable beep 
<ESC> I - Insert line 

<ESC> J - Cursor to start of line 
<ESC> K - Cursor to end of line 
<ESC> L - Enable scrolling 
<ESC> M - Disable scrolling 
<ESC> N - Reverse off (80-col) 
<ESC> O - Inst, quote, RVS off 
<ESC> P - Clear to line start 
<ESC> Q - Clear to line end 
<ESC> R - Reverse screen (80) 
<ESC> S - Block cursor (80) 
<ESC> T - Set top of screen 
<ESC> U - Underline cursor 80 
<ESC> V - Scroll up 
<ESC> W - Scroll down 
<ESC> X - Switch 40/80-col. 
<ESC> Y - Reset tabs to normal 
<ESC> Z - Clear all tabs 


Definition of window borders 


Cursor position is top/left 

Skip to $CA17 

Cursor position is right/bottom 
Get current cursor col in X-reg 
Get current cursor line in acc 

If carry cleared: left/top! 

Define bottom of screen window 
As well as right border 

Execute remainder of routine 
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KKEKKKKKKEKKKKKEKRKEKKKEKRKEKKKKKKKKKEK 


CA24: 
CA26: 
CA28: 
CA2B: 
CA2D: 
CA2E: 
CA30: 
CA32: 
CA34: 
CA36: 
CA39: 
CA3A: 
CA3C: 


ED 
EE 
1D CA 
00 


E5 
E6 
00 
04 
5D 03 


FA 


LDA 
LDX 
JSR 
LDA 
TAX 
STA 
STX 
LDA 
LDX 
STA 
DEX 
BNE 
RTS 


* SED 
* SEE 


$04 


KKREKKKKKKKKKEKKEKKKKKKEKKKKKKKKKKK 


CA3D: 
CA40: 
CA43: 
CA44: 
CA47: 
CA48: 
CA4B: 
CA4C: 
CA4E: 
CA4F: 
CA51: 


20 
20 
E8 
20 
08 
20 
28 
BO 
38 
66 
60 


7c C3 
56 Cl 


76 CB 


81 CB 


03 


E8 


JSR 
JSR 
INX 
JSR 
PHP 
JSR 
PLP 
BCS 
SEC 
ROR 
RTS 


$C37C 
$C156 


$CB76 


$CB81 


$CA51 


# SE8 


RKEKKKKKKKEKKKKKKKKKKKKKKKKKKKKK 


CA52: 
CA55: 
CA57: 
CA58: 
CASA: 
CA5C: 
CASE: 
CA5F: 


20 
A5 
48 
A5 
85 
AS 
48 
Ag 


B5 CB 
E5 


EB 
E5 
F8 


80 


SCBB5 
* SES 


* SEB 
* SES 
* SE8 


# $80 
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Define screen as window 


Get max number of lines in A 
Get max number of cols in X 
Define as right/bottom 
Left/top with 0/0 


And define as left 

And top border 

Load acc with zero and 

The X-register with 4 in order to 
Clear the line-overflow bit 
Decrement counter and jump 

If not all bits cleared yet 

Return from subroutine 


Insert line 


Move remainder of screen to X 
Cursor left - determine start addr 
Increment the line 

Test line-overflow bit 

Save the carry 

Set/clear test-overflow bit 

Get carry from stack 

Cursor line is start line 

Else mark old line 

As following-line 

Return from subroutine 


Delete current line 


Set line start address 

Load top of window into acc 
Save on stack 

Get current cursor line in acc 
Define as top of window 
Save scroll flag 

On stack 

Don't scroll 
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CA61: 
CA63: 
CA66: 
CA67: 
CA69: 
CA6B: 
CA6D: 
CA6E: 
CA70: 
CA71: 
CA73: 


RKRKKKKKKKKKEKKKKKKKEKKKEKKKKKKKKK 


CA76: 
CA79: 
CA7TC: 
CATE: 
CA81: 
CA83: 
CA86: 
CA88: 


KKEKKKKKKKEKKKKEKKKKEKKKKEKKKKKKEKK 


CA8B: 
CA8E: 
CA91: 
CA93: 
CA95: 
CA98: 
CA9A: 
CA9D: 


KRKEKKKKKKKKKKEKKKKKKKKKKKKKKKKK 


CA9F: 
CAA2: 
CAAS: 


85 
20 
68 
85 
A5 
85 
68 
85 
38 
66 
4c 


20 
20 
E6 
20 
A4 
20 
BO 
4c 


20 
20 
c4 
DO 
20 
90 
20 
90 


20 
20 
E6 


F8 
B8 C3 


F8 
E5 
EB 


ES 


E8 
56 Cl 


1E CC 
AA C4 
EB 
5C Cl 
E6 
74 CB 
Fl 
32 C9 


1E CC 
27 CC 
E6 
05 
74 CB 
EE 
00 cc 
EF 


1E°CC 
AA C4 
EB 


STA 
JSR 


JSR 
JSR 
INC 
JSR 


JSR 
JSR 
CPY 
BNE 
JSR 
BCC 
JSR 
BCC 


JSR 
JSR 
INC 


* SF8 
$C3B8 


* SFB 
* $E5 
* SEB 


* SES 


# SE8 
$C156 


$CC1E 
SC4AA 
* SEB 
$C15C 
* SE6 
$CB74 
$CA79 
$C932 


$CC1E 
$CC27 
* SE6 
SCA9A 
$CB74 
$CA88 
$cco0 
SCA8E 


$CC1E 
SC4AA 
* SEB 


Enable 

Scroll up 

Get scroll flag back 

And reconstruct 

Load top of window into acc 
Write current cursor line 

Get top of window 

And write back 

Set carry in order to write to $E8 
Mark as following-line 
Cursor left window border 


Delete from cursor to end of line 


Save cursor coordinates 

Clear current line at cursor 
Incr. current cursor line by 1 
Determine line start address 
Load left window-border in Y 
Test line-overflow bit 

Clear following-line too 

Set old cursor address 


Delete from line start to cursor 


Save cursor coordinates 

Space at current cursor position 
Compare w/ left window-border 
Not yet reached 

Test line-overflow bit 

No overflow, then end 

Else cursor left 

If moved then clear line 


Delete from cursor pos to end of 
line 


Save cursor coordinates 
Delete line 
Incr. current cursor line by 1 
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CAA7: 
CAAA: 
CAAC: 
CAAF: 
CAB1: 
CAB3: 
CAB5: 
CAB7: 
CAB9: 


20 
A4 
20 
BO 
A5 
C5 
90 
FO 
4c 


5c Cl 
E6 
74 CB 
Fl 
EB 
B4 
EB 
E9 
32 C9 


JSR 
LDY 
JSR 
BCS 
LDA 
CMP 
BCC 
BEQ 
JMP 


$c15c 
* SE6 
$CB74 
$CAA2 
* SEB 
* SE4 
S$CAA2 
$CAA2 
$C932 


KREKKKKKKKKKKEKKEKKKKKKKKKKKKKRKKK 


CABC: 
CABF : 
CACO: 
CAC1: 
CAC4: 
CAC5: 
CAC7: 


20 
8A 
48 
20 
68 
85 
4c 


1E CC 


A6 C3 


DF 
32 C9 


JSR 
TXA 
PHA 
JSR 
PLA 
STA 
JMP 


$CC1E 


$C3A6 


* $DF 
$C932 


KREKKKKKKKEKKKKKEKKEKKKEKKKKKKKKKKK 


CACA: 
CACD: 
CADO: 
CAD2: 
CAD3: 
CAD5: 
CAD7: 
CAD9: 
CADC: 
CADF: 


20 
20 
BO 
38 
66 
AS 
85 
20 
20 
4c 


1E CC 
74 CB 
03 


E8 
E5 
EB 
71¢ C3 
85 CB 
32 C9 


JSR 
JSR 
BCS 
SEC 
ROR 


$CC1E 
$CB74 
$CAD5 


# SE8 
* SES 
* SEB 
$C37C 
$CB85 
$C932 


KHKKEKKKKKEKKEKKEKKEKKEKRKKEKKKKKKKKKKK 


CAE2: 
CAE4: 
CAE5: 
CAE7: 
CAE9: 


A9 
2c 
Ag 
85 
60 


00 


80 
F8 


LDA 


-Byte 


LDA 
STA 
RTS 


# $00 

$2c 
# $80 
* SF8 
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Determine start addr. cursor line 
Load left window-border Y-reg 
Test line overflow bit 

Line not yet done 

Get current cursor line in acc 
Compare lower window border 
Lower border not yet reached 
Lower border reached 

Reset old cursor address 


Scroll up 


Save cursor coordinates 
Line to acc and 

Then save on stack 
Perform scroll-up 

Get line back from stack 
And store 

Old cursor coordinates back 


Scroll down 


Save cursor coordinates 
Test line-overflow bit 

Line is not overflow line 
Mark that input line is not 
Start line 

Load top of window in acc 
Write current cursor line 
Scroll down 

Clear line-overflow bit 

Old cursor coordinates back 


Enable/disable scrolling 


Enable scrolling 

Skip to $CAE7 
Disable scrolling 

Store scroll flag 

Return from subroutine 
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KRKEKKKKKKKKKKKKKKKKKKEKKKKKKKKKK 


CAEA: 
CAEC: 
CAED: 
CAEF : 
CAF1: 


KKKKKKKKEKKKKKKKEKKEKRKKKKKKKKKKKK 


CAF2: 
CAF 4: 
CAF 6: 
CAF9: 
CAFB: 


RKKKKKEKKKKKKKKKKKEKKKKEKKKKKKKKK 


CAFE: 
CBOO: 
CBO2: 
CBO5: 
CBO7: 
CBO09: 


KRREKKKKKKKEKKKKKKEKKKKKKKKEKKKKKK 


CBOB: 
CBOD: 
CBOF: 
CB12: 
CB14: 
CB17: 


KRKKKKKEKKKKKKKKKKKKKKKKKKKKKKEK 


CB1A: 
CBI1D: 
CBIF: 


Ag 
2c 
AQ 
85 
60 


24 
10 
AD 
29 


00 


80 
F6 


D7 
40 
2B 0A 
E0 


4C 14 CB 


24 


24 


09 


D7 
34 
2B OA 
E0 
07 
09 


D7 
0B 
2B OA 
1F 
2B 0A 
91 CD 


AD 26 0A 


40 


DO 12 


LDA # $00 
-Byte $2C 
LDA # $80 
STA * SF6 
RTS 


BIT * $D7 
BPL $CB36 
LDA $0A2B 
AND # $EO 
JMP $CB14 


BLY! (*9D7. 
BPL $CB36 
LDA $0A2B 
AND # $E0 
ORA # $07 
BNE $CB14 


BIT * $D7 
BPL $CB1A 
LDA $0A2B 
AND # S1F 
STA $0A2B 
JMP $§cCD91 


LDA $0A26 


ORA # $40 
BNE §$CB33 


Set/clear flag for auto-insert 


Clear auto-insert flag 
Skip to $CAEF 

Set auto-insert flag 
And store flag 

Return from subroutine 


Turn on block cursor 


Test 40/80-column mode 

For 40-column mode --> end 
Get VDC cursor mode 

Mask out bits 0-4 (start-scan) 
Save and VIC cursor off 


Turn on underline cursor 


Test 40/80-column flag 

If 40-column, end 

Get VDC cursor mode 

Mask out start-scan 
Start-scan line is 7 
Unconditional jump to setting 


Cursor flash off 


Test 40/80-column mode 
If 40-column, then jump 
Get VDC cursor mode 
Mask out flash 

And save again 

Set mode and VIC off 


for 40 column 
Get VIC cursor mode 


Set bit 6 for steady 
Unconditional jump to store 


Abacus Software C-128 Internals 


KHKKKKKKKEKKRKKKKKEKKEKKK KKK KKK Cursor flash on 

CB21: 24 D7 BIT * $D7 Test 40/80-column mode 

CB23: 10 09 BPL $CB2E Jump if 40 column 

CB25: AD 2B 0A LDA S$0A2B Get VDC cursor mode 

CB28: 29 1F AND # SIF Mask out flash 

CB2A: 09 60 ORA # $60 And define flash period 

CB2C: DO E6 BNE $CB14 Unconditional jump to store 

KAKKKKKKKKEKKKKKKKKEKKKKKKKEKKKE for 40 column 

CB2E: AD 26 0A LDA $0A26 Get VIC cursor mode 

CB31: 29 BF AND # SBF Mask otu bit 6 (steady) 

CB33: 8D 26 0A STA $0A26 And save again 

CB36: 60 RTS Return from subroutine 

KKKKKKKKKKKK KEK KKK KEKKKKAKKRER Set/clear flag for bell 

CB37: A9 00 LDA # $00 Enable bell 

CB39: 2C -Byte $2C Skip to $CB3C 

CB3A: A9 80 LDA # $80 Disable bell 

CB3c: 85 F9 STA * SF9 And store flag 

CB3E: 60 RTS Return from the subroutine 

KKKKKKKKKKKKK KKK KKK KRKKKKKEKKKKK Reverse 80-column monitor 

CB3F: A2 18 LDX # $18 Select register 24 

CB41: 20 DACD JSR S$CDDA And get current contents 

CB44: 09 40 ORA # $40 Set reverse flag 

CB46: DO 07 BNE SCB4F Unconditional jump to $CB4F 

KKK KKKKKKKKKEK KKK KK KKKKEKKKKEKE Switch 80-column monitor 
normal 

CB48: A2 18 LDX # $18 Select register 24 

CB4A: 20 DACD JSR S$CDDA And get current contents 

CB4D: 29 BF AND # SBF Clear the reverse flag 

CB4F: 4C CC CD JUMP S$cDCC And store 
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KKKKKK KKK KKKEK KKK KKK KK RREREKKE Cursor to end of current line 


CB52: 20C3 CB JSR SCBC3 Determine start addr current line 
CB55: 4C 3E C3 £JMP $C33E Cursor to end of line 


KRKKKKKKKKKKKKKK KR KKEKKEKKKKKKK Get char and color at cursor pos 


CB58: A4 EC LDY * SEC Get current cursor col in Y-reg 
CB5A: 24 D7 BIT * SD7 Test 40/80-column mode 
CB5C: 30 07 BMI S$CB65 Jump if 80-column mode 
CB5E: Bl E2 LDA (SE2),Y Get color at cursor position 
CB60: 85 F2 STA * SF2 And save 

CB62: Bl EO LDA ($E0),Y Get character at cursor position 
CB64: 60 RTS Return from subroutine 


KRKEKKKKKKKKAKKKAKKKKKKKKKK KKK KKK Get char. and color under cursor 


CB65: 20 F9 CD JSR $CDF9 Set the update address to ARA 
CB68: 20 D8 CD JSR $cCDD8 Get current attribute 

CB6B: 85 F2 STA * SF2 Store attribute 

CB6D: 20 E6 CD JSR $CDE6 Set the update address to video 
CB70: 20 D8 CD JSR $CDD8 Get character from video RAM 
CB73: 60 RTS Return from subroutine 


KEKKKRK KKK KKEKRKKKKKKKKKRKEKKR KKK KK Routine to test line-overflow bit 


CB74: A6 EB LDX * SEB Get current cursor line in X-reg 
CB76: 20 9F CB. JSR S$CBOF Determine power 2 & remainder 
CB79: 3D 5E 03 AND $035E,X Clear line overflow bit 

CB7C: C9 01 CMP # $01 No line set in the block? 

CB7E: 4C 90 CB JMP $cCB90 Jump to the end of the routine 
CB81: A6 EB LDX * SEB Get current cursor line in X-reg 
CB83: BO 0E BCS $CB93 Jump if flag set 

CB85: 20 9F CB JSR S$CBOF Determine power 2 & remainder 
CB88: 49 FF EOR # SFF One's complement of acc 


CB8A: 3D 5E 03. AND $035E,X combine with line overflow table 
CB8D: 9D 5E 03 STA $035E,X And store again 

CB90: A6 DA LDX * $DA Get X from temp storage 

CB92: 60 RTS Return from subroutine 
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KKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKE 


CB93: 
CB95: 
CB97: 
CB9A: 
CB9D: 


KREKKKKKKKKKKKKKKKKKEKKKKKKKKKE 


CB9F: 
CBA1: 
CBA2: 
CBA4: 
CBA5: 
CBA8: 
CBAY: 
CBAB: 
CBAC: 
CBAD: 
CBAE: 
CBAF: 
CBBO: 


24 
70 
20 
1D 
DO 


68 
60 


F8 
DF 
9F CB 
SE 03 
EE 


6C CE 


BIT 
BVS 
JSR 
ORA 
BNE 


* SE8 
$CB76 
SCBOF 


$035E,X 


SCB8D 


KREKKKKKKKKKKKKKEKKEKKKEKKKKKEKEKKEKK 


CBB1: 
CBB3: 
CBB5: 
CBB8: 
CBBA: 
CBBC: 
CBBE: 
CBCO0: 


A4 
84 
20 
90 
Cé 
10 
E6 
4c 


E6 
EC 
74 CB 
06 
EB 
F7 
EB 
5c Cl 


LDY 
STY 
JSR 
BCC 
DEC 
BPL 
INC 
JMP 


* SE6 
* SEC 
$CB74 
SCBCO 
* SEB 
SCBB5 
* SEB 
$c15c 
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Set the line-overflow bit 


Test scroll bit 

Jump if bit 6 set 

Determine power 2 & remainder 
Set the line-overflow bit 

And update 


Routine finds 2“(X AND 7) and 
INT (X/8). Param in X-reg 


Save the accumulator 
X-register to acc 

Mask out bits 3-7=X MOD 8 
Acc back to X-reg 

Get corresponding power of 2 
Save acc on stack 

Get original value back 

This value is divided by 2 
Three times 

Which results in INT(X/8) 
Result to X-reg 

Get power of 2 from stack 
Return from subroutine 


Clear the overflow chain 


Put left window-bdr into Y-reg 
Save the current cursor column 
Clr line-overfl. bit of cur. line 
Carry cleared if all bits are 0 
Decrement current cursor line 
If not first line then jump 
Increment current cursor line 
Find start addr of current line 
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KREKEKKKKKKKEKKKKKEKKEKKKKEKKKKKKKKE 


CBC3: 
CBC5: 
CBC8: 
CBCA: 
CBCC: 
CBCF: 
CBD1: 
CBD3: 
CBD6: 
CBD8: 
CBDA: 
CBDC: 
CBDE: 
CBEO: 
CBE3: 
CBE5: 
CBE8: 
CBEA: 
CBEC: 


E6 
20 
BO 
Cé 
20 
A4 
84 
20 
A6 
c9 
DO 
c4 
DO 
20 
90 
20 
90 
84 
60 


EB 
74 CB 
F9 
EB 
5C Cl 
E7 
EC 
58 CB 
EB 
20 
OE 
E6 
05 
74 CB 
05 
00 cc 
E9 
EA 


INC 
JSR 
BCS 
DEC 
JSR 


* SEB 
$CB74 
SCBC3 
* SEB 
$c15¢c 
* SE7 
* SEC 
$CB58 
* SEB 
# $20 
SCBEA 
* SE6 
SCBE5 
$CB74 
SCBEA 
$cco0 
SCBD3 
* SEA 


REKKKKKKKKKKKKKKKKKKEKKKKKKKKKK 


CBED : 
CBEE: 
CBFO: 
CBF2: 
CBF4: 
CBF7: 
CBF9: 
CBFA: 
CBFB: 
CBFC: 
CBFE: 
CBFF : 


48 
A4 
c4 
90 
20 
A4 
88 
38 
c8 
84 
68 
60 


EC 
E7 
07 
63 C3 
E6 


EC 


PHA 
LDY 
CPY 
BCC 
JSR 
LDY 
DEY 
SEC 
INY 
STY 
PLA 
RTS 


* SEC 
* $E7 
SCBFB 
$C363 
* SE6 


* SEC 
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Search for end of input line 


Increment current cursor line 
Clear line-overflow bit 

If not last line => Jump 
Decrement current cursor line 
Find start addr of current line 
Load rt window-border, Y-reg 
Save the current cursor column 
Get char. and color at cursor pos 
Get current cursor line in X-reg 
Is character <space>? 

No, then jump 

Compare with lf window-border 
Not yet reached 

Clear line-overflow bit 

A line is still free 

Cursor one position to the left 
Cursor can be moved 

Current input line: End 

Return from subroutine 


Cursor 1 spc right in window 


Save acc on stack 

Get current cursor line in Y-reg 
Compare to rt window-border 
Right window-border reached? 
No, then increment crsr column 
Load left window-border into Y 
Decrement 

Carry set means new line 
Increment cursor column 

Store the current cursor column 
Put acc back on stack 

Return from the subroutine 
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KARKKKRKK KEK KK KEK KER KK KAR KK RAKE Cursor 1 spc to left in window 
cco0: A4 EC LDY * SEC Get current crsr column in Y-reg 
CCO2: 88 DEY Decrement the column by 1 
ccCO3: 30 04 BMI $CC09 If negative, cursor in column 0 
cco5: C4 E6 CPY * $E6 Compare with lf window-border 
CCO7: BO OF BCS $CC18 Left edge not reached, OK 
cco9: A4 E5 LDY * SE5 Load top of window in Y-reg 
CCOB: C4 EB CPY * SEB Compare with current cursor line 
CCOD: BO OE BCS $CC1D Cursor is in topmost line, end 
CCOF: C6 EB DEC * SEB Decrement current cursor line 
CGLlis 48 PHA Save acc on stack 

6Cl2+  20:°5¢:Cl -JSR* Scise Find start address of the line 
CC15: 68 PLA Get acc back from stack 

CCl6: A4 E7 LDY * SE7 Load right window-bdr in Y-reg 
CC18: 84 EC STY * SEC Save the current cursor column 
CC1A: C4 E7 CPY * SE7 Compare with right window-bdr 
cclc: 18 CLC Clear carry for cursor moved 
CC1D: 60 RTS Return from the subroutine 


KHRKKKKKEKKKKKK KR KKK KKKEKREREK KK Copy cursor (X/Y) to $DE/$DF 


CC1E: A4 EC LDY * SEC Get current crsr column in Y-reg 
CC20: 84 DE STY * SDE Copy to $DE 

CC22: A6 EB LDX * SEB Get current crsr column in X-reg 
CC24: 86 DF STX * SDF Copy to $DF 

CC26: 60 RTS Return from the subroutine 
KKKKKKKKKKKKKKKEKK KEK KKRKKREK KE Space at current cursor position 
C6272 “AS: F1 LDA * $F1 Color code for char output in acc 
CC29: 29 8F AND # $8F Mask out bits 4-6 (attribute) 
CC2B: AA TAX And to X-register 

cc2c: AY 20 LDA # $20 Load acc with space 

CC2E: 2C .Byte $2C Skip to $CC31 
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KKKEKKKKEKKKKKKKKKKKEKKKKKKKKKKK 


CC2F: 
Ccc31: 
CC32: 
CC34: 
CC35: 
CC37: 
CC3A: 
CC3D: 
CC3E: 
Ccc40: 
cc42: 
cc44: 
cc46: 
CC47: 
cc49: 


A6 
2c 
A6 
A8 
A9 
8D 
20 
98 
A4 
24 
30 
91 
8A 
91 
60 


Fl 


F2 


02 
28 OA 
7¢ Cl 


EC 
D7 
06 
E0 


E2 


LDX * SF1 
-Byte $2C 
LDX * SF2 
TAY 

LDA # $02 
STA $0A28 
JSR $C17C 
TYA 

LDY * SEC 
BIT * $D7 
BMI ScCC4A 
STA (SE0),Y 
TXA 

STA (S$E2),Y 
RTS 


KKKKKKKKKKKKKKKKKKEKKKKKKKKKKKK 


CC4A: 
CC4B: 
CC4C: 
Cc4D: 
cc50: 
cce51: 
Cc54: 
CC57: 
cCc58: 


KRKEKKKKKKKEKEKKKKKKKKKKKKKKKKKK 


CC5B: 
cc5c: 
CC5E: 
CCc60: 
CCél: 
CC62: 
ccé64: 


48 
8A 
48 
20 
68 
20 
20 
68 
4c 


38 
A5 
ES 
A8 
38 
A5 
E5 


F9 CD 


CA CD 
E6 CD 


CA CD 


E4 
E5 


E7 
B6 


SEC 
LDA 
SBC 
TAY 
SEC 
LDA 
SBC 


SCDF9 


SCDCA 
SCDE6 


$SCDCA 


+ OF 


+ + 


$E4 
$SE5 


SE7 
SE6 
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C-128 Internals 


Character (acc) at cursor position 


Load X-register with color 

Skip to $CC34 

Color code reg. for insert/delete 
Acc to Y-register 

Place the value two in 

VIC cursor-flash counter 

Adapt attribute address 

And Y-register back to acc 

Get current crsr column in Y-reg 
Test 40/80 column mode 

Jump if 80-column mode 

Store character in 40-column 
Put video RAM & X-reg. (color) 
In color memory 

Return from subroutine 


Character on 80-column screen 
Acc: character, X: color, Y: col 


Save acc on stack 

X-register (color) to acc 

And store on stack 

Set update register for attribute 
Get color from stack in acc 

And store in attribute RAM 

Set update addr. for video RAM 
And get character from stack 
Store character in video RAM 


Find chars/line & lines/window 


Set carry 
Load bottom of window in acc 


Minus top yields lines 

Of the window to Y-register 

Set the carry again 

Load rt window-border into acc 
Minus left window-border yields 
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CC66: AA TAX Number of chars/line into X-reg 
CC67: AS EE LDA * SEE Max number of columns in acc 
CC69: 60 RTS Return from the subroutine 
KKEKKKKKKKKKKKKKKKKKKKRKKKKKKKKK Get or set cursor position 
CC6A: BO 29 BCS $CC95 If carry set - then get pos 
ccé6éc: 8A TXA Line to acc 

CC6D: 65 ES5 ADC * $E5 Add top of window 

CC6F: BO 14 BCS §$CC85 If overflow then end (Error!) 
CC71: C5 E4 CMP * SE4 Compare to bottom of window 
CC73: FO 02 BEQ $CC77 - If reached, then OK | 

CC75: BO OE BCS $CC85 If oveflow then end (Error!) 
CC77: 48 PHA Save line on stack 

CC78: 18 CLC Clear carry for addition 

CC79: 98 TYA Get column in acc 

CC7A: 65 E6 ADC * SE6 And add left window-border 
cc7c: BO 06 BCS $CC84 If overflow then end (Error!) 
CC7E: C5 E7 CMP * $E7 Compare to rt window-border 
cc80: FO 04 BEQ $CC86 If equal, then OK 

CC82: 90 02 BCC $CC86 If overflow then end (Error!) 
cc84: 68 PLA Get line from stack 

cc85: 60 RTS Return from subroutine 


KKKKKKKK KEK KEK KARE KR EKKEKK KEKE REE RK Make input line clear 


CC86: 85 EC STA * SEC Store the current cursor column 
cc88: 85 E9 STA * SEQ Store the start input line 

CC8A: 68 PLA Get line from stack 

CC8B: 85 EB STA * SEB Write current cursor line back 
Cc8D: 85 E8 STA * SE8 Store as start input line 

CC8F: 20 5C Cl JSR $C15C Determine addr of current line 
cc92: 2057 CD JSR $cCD57 Set cursor to current column 
cc95: A5 EB LDA * SEB Get current cursor line in acc 
Cc97: E5 E5 SBC * $E5 Subtract top of window 

cc99: AA TAX Result then to X 

CC9A: 38 SEC Set carry for subtraction 

CC9B: A5 EC LDA * SEC Get current cursor column in acc 
CC9D: E5 E6 SBC * SE6 Subtract left window-border 
CCOF: A8 TAY Result to Y 
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CCAO: 18 CLC Clear carry for OK 
CCA1l: 60 RTS Return from subroutine 
KAKKKK KKK KARR KK KKK RK RK KKK KR KKK Kernal entry: PFKEY 

Program function key 
CCA2: CA DEX Dec the number of the ftn. key 
CCA3: 86 DC STX * SDC Number of (ftn key -1) in Z-P 
CCA5: 84 DA STY * $DA Store length of string in Z-P 
CCA7: 8D AA 02 STA S$02AA Z-P addr - string ptr in FETVEC 
CCAA: A8 TAY Z-page address of string ptr in Y 
CCAB: B6 02 LDX * $02,Y Get bank # of the ftn string in X 
CCAD: 20 6B FF JSR S$FF6B Kernal: GETCFG get config 
CCBO: 85 DE STA * SDE Store in bank byte for ftn string 
CCB2: A2 0A LDX # $0A Number of ftn keys (10) in acc 
CCB4: 20 20 CD JSR _ $cD20 Add ftn str lengths up to (X -1) 
CCB7: 85 DB STA * SDB Store string length in zero page 
CCB9: A6 DC LDX * SDC Get number of the (ftn key -1) 
CCBB: E8 INX Create real ftn key number 
CCBC: 20 20 CD JSR $cD20 Add ftn str lengths up to (X -1) 
CCBF: 85 DD STA * SDD Store string length 
cccl: A6 DC LDX * SDC Get number of (ftn key -1) 
ccc3: A5 DA LDA * SDA Get string length of ftn key 
ccc5: 38 SEC Set carry for normal subtraction 
ccc6: FD 00 10 SBC $1000,xX Subtract length of the old ftn str 
ccc9: FO 2B BEQ SCCF6 No move necessary, continue 
CCCB: 90 16 BCC $CCE3 New string shorter than old 
CCCD: 18 CLC Clear carry for addition 
CCCE: 65 DB ADC * $DB Add total length + difference len 
CCDO: BO 4D BCS S$CD1F Length > 256 than RTS: error 
CCD2: AA TAX Put new maximum length in X 
CCD3: A4 DB LDY * SDB Get old max length in Y 
CCD5: C4 DD CPY * $DD If both are equal, than the last 
CCD7: FO 1D BEQ $CCF6 Ftn key was addressed 
CCD9: 88 DEY Decrement old max length by 1 
CCDA: CA DEX Decrement new max length by 1 


CCDB: B9 0A 10 LDA $100A,Y Move ftn str's away from new 
CCDE: 9D 0A 10 STA _ $100A,X Insert position 

CCE1: BO F2 BCS $CCD5 And create space for the new str 
CCE3: 65 DD ADC * SDD Add difference length 
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CCE5: AA TAX Copy new len in X 

CCE6: A4 DD LDY * $DD Get old len in Y 

CCE8: C4 DB CPY * $DB Compare with old max length 
CCEA: BO OA BCS $CCF6 Equal, than space 


CCEC: B9 0A 10 LDA $100A,Y Insertion for new ftn string 
CCEF: 9D 0A 10 STA $100A,X For ftn key is done 


CCF2: C8 INY Increment old & new len 
CCF3: E8 INX By 1 for move 
CCF4: 90 F2 BCC $CCE8 Until ftn strings shifted 


KAKA KKKKAK KKK KKK KKK KA KKRRKEKA Insert new function string 


CCF6: A6 DC LDX * $DC Get number of the (ftn key -1) 
CCF8: 20 20 CD JSR $cD20 Add ftn str lengths up to (X -1) 
CCFB: AA TAX Get str len up to the new ftn key 
CCFC: A4 Dc LDY * $DC Get # of the (ftn key -1) 

CCFE: A5 DA LDA * $DA Length of the ftn string to insert 
CD00: 990010 STA $1000,Y¥ Replace len entry in ftn str table 
CD03: AO 00 LDY # $00 Initialize displacement pointer 
CD05: C6 DA DEC * SDA Length of the ftn str = length -1 
CD07: 30 15 BMI SCD1E All chars in table xferred, exit 
CD09: 86 DF STX * SDF Store the "to" string length 
CDOB: A6 DE LDX * $DE Bank value where str is located 
CDOD: AD AA 02 LDA S$02AA Load acc with FETVEC 

CD10: 78 SEI Disable all system interrupts 
CD11: 20 A202 JSR $02A2 FETCH: get ftn string character 
CD14: 58 CLI Enable all system interrupts 
CD15: A6 DF LDX * SDF Position for ftn string in table 
CD17: 9D 0A 10 £STA $100A,X Enter character in ftn string table 
CD1A: E8 INX Displ. to "to where" str buffer+1 
CD1B: C8 INY Displ to "from where" str buff+1 
cD1c: DO E7 BNE $CD05 Jump in the string transfer loop 
CD1E: 18 CLC Marker for "OK" return 

CD1F: 60 RTS Return from the subroutine 


HAKKAR KK KKK AAR KEK RR KE KERR RK ER Add lengths of ftn str's up to X 


CD20: A9 00 LDA # $00 Load counter with zero 
CD22: 18 CLC Clear carry for addition 
CD23: CA DEX Previous key assignment 
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CD24: 30 05 BMI $CD2B If zero, then add all 

CD26: 7D 00 10 ADC $1000,X Add length of key X 

CD29: 90 F8 BCC $CD23 Jump unconditionally to $CD23 
CD2B: 60 RTS Return from subroutine 


KHKKKKKKKEKK KKK KEK KKK KKK RAK KKK Kernal routine: SWAPPER 
Switch 40/80-col modes 


Gb2ce: “65-F0 STA * SFO Store acc as last-printed char 
CD2E: A2 1A LDX # $1A Exchange the passive monitor 
CD30: BC 40 0A LDY $0A40,X Storage with the active storage. 
CD33: B5 E0 LDA * $E0,X This is done 26 times because 
CD35: 9D 40 0A STA $0A40,X 26 bytes must be copied 

CD38: 98 TYA The passive range lies from 
CD39: 95 EO sta * $£0,X $0A40 to $OASB. 

CD3B: CA DEX Decrement the counter if 

cD3c: 10 F2 BPL $CD30 Not done exchanging 

CD3E: A2 0D LDX # $0D Now the bit maps, the bit tables 


CD40: BC 60 0A LDY $0A60,X Of active and passive screens 
CD43: BD 54 03 LDA $0354,X Must be exchanged. 
CD46: 9D 60 0A STA $0A60,X This is done 13 times 


CD49: 98 TYA The passive areas starts at 
CD4A: 9D 54 03. sTA $0354,x  $0A60. 

CD4D: CA DEX Decrement counter and jump 
CD4E: 10 FO BPL $cCD40 If not done copying 

CD50: A5 D7 LDA * $D7 Get status 40/80 column 
CD52: 49 80 EOR # $80 And invert flag bit 

CD54: 85 D7 STA * $D7 Save again 

CD56: 60 RTS Return from subroutine 
KKEKKKKKKKKKKEKKKKKEKKKKKKKKKKKER Set cursor to current column 
CD57: 24 D7 BIT * $D7 Test for 40/80 column mode 
CD59: 10 FB BPL $CD56 End if 40-column mode 
CD5B: A2 0E LDX # SOE Cursor position high 

CD5D: 18 CLC Clear carry 

CD5E: A5 E0 LDA * $E0 Low byte of current screen line 
CD60: 65 EC ADC * SEC Add cursor column 

CD62: 48 PHA Save low byte 
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CD63: A5 El LDA * SEl High byte of current screen line 
CD65: 69 00 ADC # $00 Add the carry 

CD67: 20 CC CD JSR _ $cDCC And store the high byte 

CD6A: E8 INX Increment register pointer to $0F 
CD6B: 68 PLA Get low byte from stack 

cDéc: 4C CC CD JMP $cDcc And save it too (return) 

KAKA KKK KKK KR KKK KA K KR KK KER KKK KK Set cursor color at cursor pos 
CD6F: 24 D7 BIT * $D7 Test for 40/80-column mode 
CD71: 10 26 BPL $CD99 Jump if 40 column mode 

CD73% 20: 76CL. -JSR: $C1LIC Set attribute address 

CD76: A4 EC LDY * SEC Get current crsr column in Y-reg 
CD78: 20 F9 CD JSR $CDF9 Attribute addr in update register 
CD7B: 20 D8 CD JSR _ S$CDD8 Get current attribute 

CD7E: 8D 33 0A STA $0A33 Store temporarily 

CD81: 29 FO AND # SFO Mask out bits 0-3 (color) 

CD83: 85 DB STA * SDB And store 

CD85: 20 F9 CD JSR $CDF9 Attribute addr in update register 
CD88: A5 Fl LDA * S$F1 Color code for char output in acc 
CD8A: 29 OF AND # SOF Mask out bits 4-7 (attribute) 
cD8c: 05 DB ORA * SDB And combine with attribute 
CD8E: 20 CA CD JSR S$CDCA Store at attribute address 

CD91: A2 0A LDX # SOA Cursor mode and start-scan line 
CD93: AD 2B 0A LDA $0A2B 80-column cursor mode 

CD96: 4C CC CD JMP_ $cDCC And store 

CD99: A9 00 LDA # $00 Acc equal zero and store 

CD9B: 8D 27 0A STA _ $0A27 Means turn VIC cursor off 
CD9E: 60 RTS Return from subroutine 

KKK KK KKK KAR KKK KKK KE KKKKK KKK KER Turn cursor on (80-column) 
CD9F: 24 D7 BIT * $D7 Test 40/80-column mode 

CDA1: 10 10 BPL $CDB3 Jump if 40-columnmode 

CDA3: 20 F9 CD JSR _ S$CDF9 Set update to attribute address 
CDA6: AD 33 0A LDA $0A33 Temp storage for MOVLIN 
CDA9: 20 CACD JSR $CDCA Store attribute 

CDAC: A2 0A LDX # SOA Cursor mode and start-scan line 
CDAE: A9 20 LDA # $20 Assigned value 32 

CDBO0O: 4C CC CD JUMP $cDCC Place acc in VDC data register 
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KKAEKKKKKKKKKKKEKRKEKKKKKKKKKKKKKKK 


CDB3: 
CDB6: 
CDB9: 
CDBB: 
CDBD: 
CDCO: 
CDC3: 
CDC6: 
CDC9: 


20 
60 


27 OA 
26 OA 
OE 

40 

26 OA 
29 OA 
2A OA 
34 CC 


$0A27 
$0A26 
$CDC9 
# $40 
$0A26 
$0A29 
SOA2A 
$cc34 


KKKKKKKKKKKKKEKEKKEEKKKKKKKKEKKEKE 


CDCA: 
CDCC: 
CDCF: 
CDD2: 
CDD4: 
CDD7: 


A2 
8E 
2c 
10 
8D 
60 


1F 
00 D6 
00 Dé 
FB 
01 Dé 


LDX 
STX 
BIT 
BPL 
STA 
RTS 


# $1F 
$D600 
$D600 
SCDCF 
$D601 


KRAEKKKKKKKKKEKKKEKKKKEKEKKKKKKKKKKK 


CDD8: 
CDDA: 
CDDD: 
CDEO: 
CDE2: 
CDE5: 


A2 
8E 
2c 
10 
AD 
60 


1F 
00 D6 
00 Dé 
FB 
01 D6 


LDX 
STX 
BIT 
BPL 
LDA 
RTS 


# $1F 
$D600 
$D600 
$CDDD 
$D601 


KRKKEKKKKKKKKKKKEKKKEKKKKKKKKKKKKK 


CDE6: 
CDE8: 
CDE9: 
CDEA: 
CDEC: 
CDED: 
CDEF: 


A2 
18 
98 
65 


12 


E0 


48 - 


AQ 
65 


00 
El 


# $12 


* $EO 


# $00 
* SE1 
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Turn cursor on (40-column) 


Turn VIC cursor on 
Steady or flashing cursor? 
Steady, then end 

Clear flash flag 

And store again 

VIC character before flash 
VIC color before flash 
Set old values 

Return from subroutine 


Acc in data register of VCR 


VCR data register 
Transmit register 

Test status 

Not done yet, wait 
Store value in register 
Return from subroutine 


Get value of the data register 


VCR data register 
Transmit register 

Test status 

Not done yet, wait 

Get value of the register 
Return from subroutine 


Set update address to current 
screen position 


Update address high 

Clear carry for addition 

Y (column) to acc 

Add low byte of current addr 
Then on stack 

Load acc with zero and then 
Add the carry 
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CDF1: 
CDF4: 
CDF5: 
CDF 6: 


20 cc cD 


68 
E8 


4C cc cD 


JSR 
PLA 
INX 
JMP 


$CDCC 


$CDCC 


RKEKKKKKKKKKKKKKKKKKKKKKKKKKKK 


CDF9: 
CDFB: 
CDEC: 
CDFD: 
CDFF: 
CE00: 
CE02: 
CE04: 
CE07: 
CE08: 
CE09: 


A2 
18 
98 
65 
48 
A9 
65 
20 
68 
E8 


12 


E2 


00 
E3 
cc 


cD 


4c cc cD 


# $12 


* SE2 
# $00 


* $E3 
$CDCC 


$CDCC 


KRKKKKKKKKEKKKEKKKEKKKKKKKKKKKKKKK 


CE0C: 
CEOE: 
CE10: 
CE12: 
CE14: 
CE16: 
CE18: 
CE1B: 
CE1C: 
CELE: 
CE21: 
CE23: 
CE25: 
CE27: 
CE2A: 
CE2D: 
CE2E: 
CE30: 
CE32: 


00 
DO 
DA 
DB 
12 
20 
cc 


00 
cc 
00 
OE 
DA 
74 
CA 


08 
Fl 
00 


CD 


CD 


FF 
cD 


$00 
$D0 
SDA 
$DB 
$12 
$20 
cDcc 


i 4th 4k oF OF FE AE 


# $00 
$CDCC 
# $00 
# $OE 
# SDA 
SFF74 
SCDCA 


# $08 
$CE23 
# $00 
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Store the high byte 

Get low byte from stack 
Increment register to $13 

And low byte in update register 


Set update address for attribute 


Update register high byte 
Clear carry for addition 

Y (column) to acc 

Add low byte of attribute addr 
And then on stack 

Load acc with zero and then 
Add carry 

Store high byte 

Get low byte from stack and 
Increment register to $13 
Store low byte 


Copy character set in VDC RAM 


Load acc (low) & Y (high) with 
Start addr - CHARROM: $D000 
Store these values in zero-page 
Addresses $DA and $DB 
Update register high 

Start address of char generator 
Define in VDC 

Pointer to low byte 

$00 is low byte of start address 
Of the character generator 
Index pointer to line/char 
Select CHARROM 

Zero-page address to access 
INDFET: LDA(XX),Y fr bank 
And store value in RAM 

VDC. Increment index pointer 
All 8 character copied? 

No, then next line 

Else load acc with zero 
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CE34: 20 CA CD JSR §$CDCA 
CE37: 88 DEY 

CE38: DO FA BNE $CE34 
CE3A: 18 CLC 

CE3B: A5 DA LDA * SDA 
CE3D: 69 08 ADC # $08 
CE3F: 85 DA STA * SDA 
CE41: 90 EO BCC $CE23 
CE43: E6 DB INC * $DB 
CE45: A5 DB LDA * $DB 
CE47: C9 EO CMP # $EO 
CE49: 90 D8 BCC $CE23 
CE4B: 60 RTS 


KRHEKKKKKEKKEKKEKKKEKKKEKRKEKKKKKKKKKE 


CE4C: 
CE54: 


90 05 1C 9F 9C 1E 1F YE 
81 95 96 97 98 99 YA 9B 


KHKEKKKKKKKKKEKKKEKKEKKKKKKEKKKKKE 


CE5C: 
CE64: 


00 OF 08 07 OB 04 02 OD 
OA 0C 09 06 O01 05 03 OE 


KEKEKKKKKKKKKKKKKKKKKKKKKKKKKKK 


CE6C: 80 40 20 10 08 04 02 01 


KEKKKKKKEKKKKKRKKKKKKRKKKKKKKKKKK 


CE74: 00 04 00 D8 18 00 00 27 
CE7C: 00 00 00 00 00 18 27 00 
CE84: 00 0D OD 00 00 00 00 00 
CE8C: 00 00 


KKEKKKKKKEKKKKEKEKKKKKKRKKKEKKKKKKEKE 


CE8E: 00 00 00 08 18 00 00 4F 
CE96: 00 00 00 00 00 18 4F 00 
CE9E: 00 07 07 00 00 00 00 00 
CEA6: 00 00 
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And store value in VDC-RAM 
Eight times 

Jump if not yet done 

Clear carry for addition 
Load acc with low byte 

And add 8 to it 

Store again and 

If no carry than continue 
Else account for carry 

And check if the high byte 
points to end of CHARROM 
Else continue 

Return from the subroutine 


Table of the color codes (ASCID) 


Table of color codes for VDC 


Power of 2 
128, 64, 32, 16, 8, 4, 2, 1 
Init. values for 40-col screen . 


These values are copied to zero 
page at $EO during initialization 
They are explained in zero-page 
Comments 


Init. values for 80-col screen 


These values are copied into 
Page 3 at $0A40 during init. 
They're explained in page-three 
Comments 
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KRKKKKKKEKKKKEK KKK KKK RRA KK KKK Init. assignment of function keys 
CEA8: 07 06 OA 07 06 04 05 08 Length of function key strings 
CEBO: 09 05 (F1 - F8, Shift-Run, Help) 
KHKKKKKKKKKKKKKKKKKKKKKEKKKKKKKK Init. ftn key string assignments 
CEB2: 47 52 41 50 48 49 43 GRAPHIC 

CEB9: 44 4C 4F 41 44 22 DLOAD" 


CEBF: 44 49 52 45 43 54 4F 52 DIRECTORY <Cr> 
CEC7: 59 OD 


CEC9: 53 43 4E 43 4c 52 OD SCNCLR <Cr> 
CEDO: 44 53 41 56 45 22 DSAVE" 
CED6: 52 55 4E OD RUN <Cr> 
CEDA: 4C 49 53 54 OD LIST <Cr> 


CEDF: 4D 4F 4E 49 54 4F 52 OD MONITOR <Cr> 


CEE7: 44 CC 22 2A OD 52 55 4E D <Shift - L> <Cr> RUN <Cr> 
CEEF: OD 


CEFO: 48 45 4c 50 OD HELP <Cr> 
KEKKKKKKRKKKKRKRKEKKKKEKKRKAKKKKEKKKE Free area 
CEF5: FF FF FF... Not used 
CFFD: .. . FF 00 FF Not used 
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KARKKEKKKKKK KERR KKK KKK KKK KKK Reset routine 

E000: A2 FF LDX # SFF Init. value for stack pointer 
E002: 78 SEI Disable all system interrupts 
E003: 9A TXS Set system stack pointer to start 
E004: D8 CLD Reset decimal mode 

E005: A9 00 LDA # $00 Load acc with zero and 

E007: 8D 00 FF STA SFFO0O Enable all system ROMs 

EQOA: A2 OA LDX # $0A Set loop and displ. counter 


E00C: BD 4B EO LDA S$EO04B,X Get byte from init. counter 
EOOF: 9D 00 D5 STA $D500,X Initialize MMU registers 


E012: CA DEX Loop and displ. counter -1 
E013: 10 F7 BPL $E00C Transfer 11 values from table 
E015: 8D 04 0A STA S$0A04 Clear NMI/Reset status pointer 
E018: 20 CD E0Q JSR $E0CD NMLIRQ+copy z-page routines 
E01B: 20 FO El JSR $E1F0 Check <CBM> code in RAM 1 
EO1E: 20 42 E2 JSR $E242 Cartridge test for C-64 config 
E021: 20 09 El JSR $E109 Kernal IOINIT: Init I/O devices 
E024: 20 3D F6 JSR $F63D Shift RUN/STOP keyboard test 
Q027: 48 PHA Save acc contents on stack 
E028: 30 07 BMI $E031 Bit 7 set, skip reset status test 
E02A: AQ AS LDA # $A5 System warm/cold start stat. ptr. 
E02C: CD 02 0A CMP S$0A02 Test for warm-start status 
E02F: FO 03 BEQ $E034 Warm-start status, then skip 
E031: 20 93 EO JSR $E093 RAMTAS: Clear/test RAM 
E034: 2056 EO JSR $E056 RESTOR: Initialize I/O 

E037: 2000 CO JSR $c000 Routine CINT: Init. editor+scr. 
E03A: 68 PLA Get code for keyboard poll 
E03B: 58 CLI Enable all system interrupts 
E03C: 30 03 BMI $E041 Bit 7 set, skip monitor entry 
E03E: 4C 00 BO JMP $B000 Kernal MONITOR entry 

E041: C9 DF CMP # SDF Configure system as C-64? 
E043: FO 03 BEQ $E048 Yes, then do it 

E045: 6C 00 OA JMP  ($0A00) System restart vector ($4003) 
E048: 4C 4B E2 JMP $E24B GO64MODE: configure C-64 
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KKKKKKKKKKKKKKEKKKEKKEKKKKKKKKKKK 


E04B: 00 -Byte $00 
E04c: 00 -Byte $00 
E04D: 00 -Byte $00 
E04E: 00 -Byte $00 
E04F: 00 -Byte $00 
E050: BF .Byte SBF 
E051: 04 -Byte $04 
E052: 00 -Byte $00 
E053: 00 -Byte $00 
E054: 01 -Byte $01 
E055: 00 -Byte $00 


REKKEKKKKKKKKKKKKKKKKKKKKKKKKKK 


E056: A2 73 LDX # $73 
E058: AO EO LDY # SEO 
EOSA: 18 CLC 


REKKEKKKKEKKKKEKKEKKKKEKKKKEKKKKKEEK 


EQ5B: 86 C3 STX * $C3 
E05D: 84 C4 STY * $c4 
BOSF: AO 1F LDY # $1F 
E061: B9 14 03 LDA $0314,Y 
E064: BO 02 BCS $E068 
E066: Bl C3 LDA ($C3),Y 
E068: 99 14 03 STA $0314,Y 
E06B: 90 02 BCC S$E0O6F 
E06D: 91 C3 STA ($C3),Y 
E06F: 88 DEY 

E070: 10 EF BPL S$E061 
E072: 60 RTS 


KKEKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


E073: 65 FA SFA65 
E075: 03 BO $B003 
E077: 40 FA SFA40 
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Initialization table for MMU 


$D500: Configuration Register 
$DS01: Preconfig. Register A 
$D502: Preconfig. Register B 
$D503: Preconfig. Register C 
$D504: Preconfig. Register D 
$D505: Mode Config. Register 
$D506: RAM Config. Register 
$D507: Page 0 Pointer Low 
$D508: Page 0 Pointer High 
$D509: Page 1 Pointer Low 
$DSOA: Page 1 Pointer High 


Kernal routine: RESTOR 


Low byte of kernal vector table 
High byte of kernal vector table 
Marker for dnload of vector table 


Kernal routine: VECTOR 


Low byte of vector tbl in z-page 
High byte of vector tbl ($E073) 
Set loop counter to 32 

Read byte from page 3 vector tbl 
If upload vector table, skip 
Read a value from vector table 
Store in page three vector table 
If download vector table, skip 
Copy in indexed table 

Loop counter & displacement -1 
Loop until table transferred 
Return from subroutine 


Vector table 
Vector points to IRQ entry 


Vector to Monitor Break entry 
Vector points to NMI entry 
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a EEUU EEE ae 


E079: 
EO7B: 
EO7D: 
EOQ7F: 
E081: 
E083: 
E085: 
E087: 
E089: 
FO8B: 
E08D: 
EO8F: 
E091: 


BD 
88 
06 
4c 
26 
06 
719 
6E 
EB 
22 
06 
6C 
4E 


EF 
Fl 
Fl 
Fl 
F2 
EF 
EF 
F6 
EE 
F2 
BO 
F2 
F5 


SEFBD 
$F188 
SF106 
$SF14C 
$F226 
SEF06 
SEF79 
SF66E 
SEEEB 
$F222 
$B006 
SF26C 
SF54E 


KKKKKKKKKKKKKKKKKKKKKEKEKKKKKEKE 


E093: 
E095: 
E096: 
E099: 
EO9A: 
E09C: 
EO9E: 
EOAO: 
EQA2: 
EOA4: 
EOAG6: 
EOA8: 
EOAA: 
EOAC: 
EQAE: 
EOAF: 
EOB1: 
EOB3: 
EOB6: 
EOB8: 
EOBA: 


AQ 
A8 
99 
c8 
DO 
AO 
84 
85 
AO 
84 
85 
AQ 
84 
85 
18 
AO 
A2 
20 
AO 
A2 
20 


00 


02 00 


FA 
0B 
B3 
B2 
0c 
cg 
c8 
0D 
CB 
CA 


FF 
00 
6B F7 
1¢ 
00 
TA F7 


LDA # $00 


TAY 


$0002,Y 


$E096 


# 
x 
* 
# 
* 
* 
# 
* 
* 


# 
# 


$0B 
$B3 
$B2 
$0c 
$c9 
$c8 
$0D 
$CB 
SCA 


SFF 
$00 


$F76B 


# 
# 


$1c 
$00 


SF77A 
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Vctr pts to Kernal OPEN rout. 
Vctr pts to Kernal CLOSE rout. 
Vetr pts to Kernal CHKIN rout. 
Vctr pts to Kernal CKOUT rout. 
Vectr pts to Kernal CLRCH rout. 
Vectr pts to Kernal BASIN rout. 
Vctr pts to Kernal BSOUT rout. 
Vctr pts to Kernal STOP rout. 
Vctr pts to Kernal GETIN rout. 
Vctr pts to Kernal CLALL rout. 
Vctr to Monitor Exmon entry 
Vector points to LOADSP entry 
Vector points to SAVESP entry 


Kernal routine: RAMTAS 
Clr z-page,set Memtop,Membot, 
RS-232 I/O buff's+cassette buff 


Init acc with $00, addr val low 
And copy to Y 

Clear the entire zero page 
Except for the 2 processor ports 
Registers $00 and $01 

Set the zero-page cassette buffer 
Pointer (z-page $B2-$B3) to the 
Start address $0B00 

Set the zero-page RS-232 input 
Buffer ptr (z-page $C8-$C9) to 
The start address $0C00 

Set the zero-page RS-232 output 
Buffer ptr (z-page $CA-$CB) to 
To the start address $0D00 
Clear carry flag as marker 

Set top of memory 

In the system bank to $FFOO 
Jump to kernal rout. MEMTOP 
Set the memory bottom 

In the system bank to $1C00 
Jump to kernal rout. MEMBOT 
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EOBD: 
EOBF: 
EO0C1: 
E0C4: 
E0C7: 
E0C9: 
EOCC: 


AO 
A2 
8C 
8E 
AQ 
8D 
60 


40 
00 
01 
00 
A5 
02 


OA 
OA 


OA 


# $40 
# $00 
$0A01 
$0A00 
# SAS 
$0A02 


KRKKEKKKKKKKKKKKKRKKKKKEKKKKKKKKKE 


EOCD: 
EOCF: 
E0D2: 
E0OD5: 
E0D7: 
EQDA: 
EODD: 
EODE: 
EOEO: 
EOE2: 
EOES: 
EOE8: 
EOE9: 
EOEB: 
EOEC: 
EQEE: 
EOFO: 
EOF3: 
EOF6: 
EOF7: 
EOF9: 
EOFB: 
EOFE: 
E101: 
E102: 
E104: 


AQ 
B9 
8D 
A2 
BD 
9D 
CA 
10 
A2 
BD 
9D 
CA 
10 
88 
10 
A2 
BD 
9D 
CA 
10 
A2 
BD 
9D 
CA 
10 
60 


03 
05 
00 
3F 
05 
05 


F7 
05 
FA 
FA 


F7 


El 
59 
00 
A2 


F7 
0c 
5A 
FO 


F7 


El 
FF 


FF 
FF 


FF 
FF 


F8 
02 


F8 
03 


LDY 
LDA 
STA 
LDX 
LDA 
STA 
DEX 
BPL 
LDX 
LDA 
STA 
DEX 


# $03 


$E105,Y 


SFF00 
# $3F 


SFFO5,X 
SFF05,X 


$EOD7 
# $05 


SFFFA,X 
SFFFA, X 


SEOE2 


SEOCF 
# $59 


$F800,X 
$02A2,X 


SEOFO 
# $0C 


SF85A,X 
$03F0,X 


SEOFB 
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Initialize the system 

RESTART vector at the address 
$A00-$A01 w/ value $4000 for 
The system cold-start entry 
Initialize the system cold-start/ 
Warm-start stat. ptr with $A5 
Return from subroutine 


Copy NMI, IRQ + z-pge rout's 


Init loop counter for four loops 
Get value from RAM bank table 
Set corresponding configuration 
Transfer 64 bytes 

Read NMI+IRQ rout from ROM 
Copy into underlying RAM 
Transfer loop counter -1 

Loop until 64 bytes transferred 
In the same manner the 

NMI, reset & IRQ vectors are 
Copied from kernal ROM in the 
Underlying RAM, loop 'til all 3 
Vectors are transferred 

Loop cntr for 4 RAM banks-1 
Copy rout.+vect. in 4 RAM bks 
90 bytes to transfer 
Here the ROM originals of the 
FETCH,STASH,CMPARE, 
JSRFAR,JMPFAR routs copied 
In RAM at pages 2 and 3 
Transfer 13 bytes 
Here the original routine in ROM 
Is copied into the 

RAM area at address 

$03F0 

Return from subroutine 


Abacus Software C-128 Internals 


a 


KHRKKKKKKEKKKKKKKKKKKKKKKKKKKKKK RAM bank table 


E105: 00 -Byte $00 RAMO,SysROM,Bs hi,Bs lo,i/o 
E106: 40 .Byte $40 RAM1,SysROM,Bs hi,Bs lo,i/o 
E107: 80 .Byte $80 RAM2,SysROM,Bs hi,Bs lo,i/o 
E108: co .Byte $C0 RAM3,SysROM,Bs hi,Bs lo,i/o 
KKKKKKKKKKEKKKKKKEKKEKKKKKRKEREKER Kernal routine: IOINIT 
Initialization of the CIAs 
E109: A9 7F LDA # $7F Load value for "clear interrupt" 
E10B: 8D 0D DC STA §$DCOD Initialize ICR of CIA 1 
E10E: 8D 0D DD STA S$DDOD Initialize ICR of CIA 2 
Ell1: 8D 00 DC STA _ §$DC00 Port A, CIA 1, matrix line 0 
E114: A9 08 LDA # $08 "1 shot" initialization for timer 
E116: 8D 0E DC STA §$DCOE CRA of CIA 1 tmr A to "1 shot" 
E119: 8D 0E DD STA S$DDOE CRA of CIA 2 tmr A to "1 shot" 
Ellc: 8D OF DC STA S$DCOF CRA of CIA 1 tmr B to "1 shot" 
El1lF: 8D OF DD STA $DDOF CRA of CIA 2 tmr B to "1 shot" 
E122: A2 00 LDX # $00 CIA register to input mode 
E124: 8£ 03 DC STX S$DC03 Data direction reg. B of CIA 1 
E127: 8E 03 DD SsTX $DD03 Data direction reg. B of CIA 2 
E12A: CA DEX Xreg to value for "output mode" 
E12B: 8E 02 DC SsTX $DC02 Data direction reg. A of CIA 1 
E12E: A9 07 LDA # $07 Video controller to lower 16 K 
E130: 8D 00 DD STA S$DDO00 ATN signal on port A, clr CIA 2 
E133: A9 3F LDA # $3F Set bits 0 to 5 to output 
E135: 8D 02 DD STA $DD02 Data direction reg A of CIA 2 
E138: A9 E3 LDA # $E3 Initialize processor port data reg 
E13A: 85 01 STA * $01 With the default value $E3 
E13c: A9 2F LDA # $2F Init. process port data dir reg 
E13E: 85 00 STA * $00 With default value $2F 
E140: A2 FF LDX # SFF Initialize PAL/NTSC ptr (PAL) 
E142: AD11D0 LDA §$D011 Wait until MSB of the raster line 
E145: 10 FB BPL $5142 Interrupt pointer is set 
E147: A9 08 LDA # $08 Comp value PAL/NTSC version 
E149: CD12 D0 CMP $D012 Compare low byte raster intrpt 
E14C: 90 06 BCC $E154 Less than 8, then PAL version 
E14E: AD 11D0 LDA §$D011 Wait until MSB of the raster line 
E151: 30 F4 BMI $E147 Interrupt is cleared 
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E153: E8 INX Set PAL/NTSC ptr to NTSC($0) 
E154: 8E 03 0A STX $0A03 Store PAL/NTSC version ptr 
E157: A9 00 LDA # $00 Init value for pointer 

E159: 8D 37 0A STA _ $0A37 X-reg storage, bank operations 
E15c: 8D 39 0A STA $0A39 80 column VDC temp storage 
E15F: 8D 0A 0A’ STA SOAOA Indirect IRQ vector (cassette) 
E162: 8D 3A 0A STA SOA3A Initialize IRQ temp pointer 
E165: 8D 36 0A STA $0A36 Raster line for raster interrupt 
E168: 85 99 STA * $99 Standard input device= keyboard 
El6A: A9 03 LDA # $03 Set z-page storage for standard 
E1l6C: 85 9A STA * S9A Output device to 3 (=screen) 
E16E: A2 30 LDX # $30 Transfer 49 bytes 


E170: BD C7 E2 LDA $E2C7,X Initialization table for VIC chip 
E173: 9D 00 DO STA $D000,X Copy into VIC control registers 


E176: CA DEX Loop/displacement counter -1 
E177: 10 F7 BPL $E170 Loop until 49 values transferred 
E179: A2 00 LDX # $00 Set loop counter for VDC init 
E17B: 20 DC El JSR $E1DC Initialize VDC registers 

E17E: AD 00 D6 LDA §$D600 Read VDC status 

E181: 29 07 AND # $07 Is bits 0-2 are cleared 

E183: FO 05 BEQ $E18A Yes, skip init. of VDC reg 
E185: A2 3B LDX # $3B Displacement ptr to VDC table 
E187: 20 DC El JSR $E1DC Initialize VDC registers 

E18A: 2C 03 0A BIT $0A03 Check if PAL/NTSC version 
E18D: 10 05 BPL $E194 Skip, if NTSC version 

E18F: A2 3E LDX # $3E Displacement ptr to VDC table 
E191: 20 DC El JSR S$E1DC Initialize VDC registers 

E194: AD 04 0A LDA S0A04 Check NMlI/reset status pointer 
E197: 30 15 BMI S$E1AE VDC already init, then skip 
E199: 2027 CO JSR $C027 Routine INIT80: init. 80-column 
E19c: AQ 80 LDA # $80 Set bit 7 in acc,combine value 
E19E: OD 04 0A ORA $0A04 With the NMI/VDC status 
El1Al: 8D 04 0A STA S$0A04 And write in the status flag 
E1A4: A2 FF LDX # $FF Loop counter high to high value 
E1A6: AO FF LDY # SFF Loop counter low to low value 
E1A8: 88 DEY Decrement loop counter low 
E1A9: DO FD BNE SE1A8 Loop low code? No, continue 
E1AB: CA DEX Decrement loop counter high 
E1AC: DO FA BNE SE1A8 Loop high done? No, continue 
E1AE: AQ 00 LDA # $00 Init. value for SID register 
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E1B0: A2 18 LDX # $18 SID displacement & loop pointer 
E1B2: 9D 00 D4 STA $D400,X Clear SID register (low value) 
E1B5: CA DEX Loop and displ pointer -1 

E1B6: 10 FA BPL $E1B2 Loop until 19 registers erased 
E1B8: A2 01 LDX # $01 Load X-reg with #1 

E1BA: 8E 1A D0 STX S$DO01A Set IRQ mask register 

E1BD: CA DEX Decrement X-reg to zero 

E1BE: 8E 1C OA STX S$0AI1C Clear fast serial mode pointer 
E1C1: 8E OF OA SsTX SOAOF Clear RS-232 NMI status reg 
E1C4: CA DEX Set X-reg to high value ($FF) 
E1C5: 8E 06 DC STX $DC06 Place value in timer B low 
E1c8: 8E 07 DC SsTX $DCO07 Place value in timer B high 
E1CB: A2 11 LDX # $11 Code for "force load" & timer A 
E1CD: 8E OF DC STX $DCOF Start in the CIA control register 
E1D0: 20 C3 E5 JSR $E5C3 Test routine, if fast serial mode 
E1D3: 20 D6 E5 JSR S$ESD6 Is recognized by the disk drive 
E1D6: 20 C3 E5 JSR $E5C3 And responds to the 

E1D9: 4C 4E E5 JMP SE54E Clock low signal and RTS 


KKKKKKKKRK KEK KKK KKK KEK RRR ERK EK Initialize the VDC register 


E1DC: BC F8 E2 LDY S$E2F8,X Get register selection from table 


E1DF: 30 OD BMI SE1EE Check end criterium (Bit 7 = on) 
E1E1: E8 INX Displacement to VDC table +1 
E1E2: BD F8 E2 LDA S$E2F8,X Get register write value from tbl 
E1E5: E8 INX Displacement to VDC table +1 
E1E6: 8C 00 D6 STY $D600 Set VDC register selection port 
E1E9: 8D 01D6 STA §$D601 Write VDC register data port 
E1EC: 10 EE BPL $E1DC Jump to loop start 

E1EE: E8 INX Displacement to VDC table +1 
E1EF: 60 RTS Return from subroutine 


KHRKKKKKKKKKK EKER KKK RR KKK KKK Check <CBM> code in RAM1 


ElFO: A2 F5 LDX # $F5 Initialize the 2-byte zero-page 
E1F2: AO FF LDY # SFF Ptr addr $C3(lo) - $C4(hi) with 
E1lF4: 86 C3 STX * $C3 The start address of the 

E1lF6: 84 C4 sty * $C4 Kernal vector table ($FFF5) 
E1F8: A9 C3 LDA # $C3 Set FETVEC for fetch routine to 
E1FA: 8D AA 02 STA SO2AA Start of the vector table 
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E1FD: AO 02 LDY # $02 Displacement for FETCH rout. 
E1lFF: A2 7F LDX # $7F Config. code (RAM 1 only) 
E201: 20 A202 JSR $02A2 FETCH rout: LDA from any bnk 
E204: D9 C4 E2 CMP $E2C4,Y Check for code <C> <B> <M> 
E207: DO 1B BNE $E224 Not equal, then exit 

E209: 88 DEY Loop until three letters checked 
E20A: 10 F3 BPL $E1FF 

E20C: A2 F8 LDX # SF8 Initialize the 2-byte zero-page 
E20E: AO FF LDY # SFF Ptr at addrs $C3 (lo) - $C4 (hi) 
E210: 86 C3 STX * $C3 With the addr of kernal C-128 
E212: 84 C4 STY * $C4 Mode Vector ($FFF8) 

E214: AO 01 LDY # $01 Displacement for FETCH rout 
E216: A2 7F LDX # S7F Config. code (RAM1 only) 
E218: 20 A2 02 JSR $02A2 FETCH rout: LDA from any bnk 
E21B: 99 02 00 STA $0002,Y Place entry address hi - lo in 
E21E: 88 DEY Zero-page $02-$03. Loop 

E21F: 10 F5 BPL $E216 Until both addresses transferred 


E221: 6C 02 00 JMP ($0002) Indirect jump via zero page 


KKK KKK KKK KKK KKK KKK ERK KKK KKK KK Kernal vector: C1283 MODE 


E224: AQ 40 LDA # $40 RAM 1, enable all system ROMs 
E226: 8D 00 FF STA S$FFO0O And set configuration 

E229: AQ 24 LDA # $24 Initialize the 2-byte kernal 

E22B: AO E2 LDY # SE2 Vector for the 128 mode with 
E22D: 8D F8 FF STA SFFF8 The default value 

E230: 8C F9 FF STY $FFF9 $E224 

E233: A2 03 LDX # $03 Loop counter for 3 transfers 


E235: BD C3 E2 LDA $E2C3,X Load <C> <B> <M> from table 
E238: 9D F4 FF STA S$FFF4,X And copy to the vector range of 


E23B: CA DEX RAM bank 1. Loop until the 
E23C: DO F7 BNE $E235 Three letters are transferred 
E23E: 8E 00 FF STX SFFOO RAM 0, enable all system ROMs 
E241: 60 RTS Return from subroutine 
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KEKKKKKKKKKKKKKKKEKEKKKKKKKKKEKE 


E242: 
E245: 
E247: 
E249: 


AD 05 D5 
29 30 
c9 30 
FO 20 


CMP 
BEQ 


$D505 
# $30 
# $30 
$E26B 


KREKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


E24B: 
E24D: 
E24F: 
E251: 
E253: 
E255: 
E258: 
E25A: 
E25B: 
E25D: 
E260: 


A9 E3 
85 01 
AQ 2F 
85 00 
A2 08 
BD 62 E2 
95 01 


DO F8 
8E 30 DO 
4c 02 00 


LDA 
STA 
LDA 
STA 
LDX 
LDA 
STA 
DEX 
BNE 
STX 
JMP 


# SE3 
* $01 
# $2F 
* $00 
# $08 


$E262,X 
* $01,X 


$E255 
$D030 
$0002 


KHEKKKKKEKKKKKKKKKEKEKKEKKKKKKKKEKE 


E263: 
E265: 
E268: 


AQ F7 
8D 05 D5 
6C FC FE 


LDA 
STA 
JMP 


# SE7 
$D505 


(SFFEFC) 


KREKKKKKKKKKKKKEKKKKEKKKEKKKKKKKEKE 


E26B: 
E26D: 
E270: 
E272: 
E275: 


A2 03 

8E CO OA 
A9 00 

9D Cl OA 
CA 


LDX 
STX 
LDA 
STA 
DEX 


# $03 
$0ACO 
# $00 


$0AC1,X 
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Check if EXROM input on MCR 
Serves to switch modes if C64 
cartridge inserted 


Read MCR register of the MMU 
Check if bit 5 set for EXROM 
input 

Yes, then no 64 cartridge present 


Kernal routine: GO64MODE 
Configure system as C64 


C-64 system values in 

Data register processor port 
C-64 system values in 

Data direction reg processor port 
8 bytes to be copied 

Here the ROM original of the 
Routine, which configures C-64 
Is copied into zero page because 
The routine can run only there 
Set clock frequency to 1 MHz 
To zero-page rout: config. C-64 


This routine configures C-128 
as a C-64. It can run only in the 
zero page because all other areas 
are switched off. 


Write init value for C-64 system 
In the MCR register of the MMU 
Jump to RESET vector C-64 


Function ROM test C-128 mode 


Initialize loop and displ counter 
For cartridge test 

The first 4 bytes of the PAT 
(Physical address table of the 
Expansion card) are cleared here 


Abacus Software C-128 Internals 





E276: 10 FA BPL $E272 ($00 initialized) 

E278: 85 9E STA * $9E Low addr value for cartridge test 
E27A: AO 09 LDY # $09 Displacement to cart code(CBM) 
E27C: AE CO 0A LDX SO0ACO Displacement cntr for cart check 
E27F: BD BC E2 LDA SE2BC,X Get high addr value from table 
E282: 85 9F STA * SOF And place it in zero page 

E284: BD CO E2 LDA S$E2C0,X Get bank val. for test from table 
E287: 85 02 STA * $02 And place it in z-page bank byte 
E289: A6 02 LDX * $02 Get bank code from zero page 
E28B: A9 9E LDA # $9E Get addr $9E as VETVEC in acc 
E28D: 20 D0 F7 JSR $F7DO INDFET:LDA (fetvec), Y any bk 
E290: D9 BD E2 CMP SE2BD,Y Test 1 character for "CBM" code 
E293: DO 21 BNE SE2B6 Not equal, next bank/address 
E295: 88 DEY Continue test for "CBM" code 
E296: CO 07 CPY # $07 If 3 code chars are recognized 
E298: BO EF BCS $E289 Then continue, else in test loop 
E29A: A6 02 LDX * $02 Get bank code of current test 
E29C: AQ 9E LDA # $9E Get addr $9E as FETVEC in acc 
E29E: 20 D0 F7 JSR SFT7DO INDFET: LDA(fetvec), Y any bk 
E2Al: AE CO 0A  LDX $0ACO Get F ROM displacement pointer 
E2A4: 9DCl 0A STA $0AC1,X ID table of expansion card 
E2A7: C9 01 CMP # $01 Check expansion indicated 
E2A9: DO OB BNE SE2B6 No, then skip to next test 

E2AB: A5 9E LDA * S9E Low of entry address in acc 
E2AD: A4 9F LDY * $9F High of entry address in Y-reg 
E2AF: 85 04 STA * $04 Low of entry address in PC low 
E2B1: 84 03 STY * $03 High of entry address in PC hi 
E2B3: 20 CD02 JSR $02CD JSRFAR: JSR to any bk+RTS 
E2B6: CE CO 0A DEC. $0ACO Loop/displacement counter -1 
E2B9: 10 BF BPL S$E27A Not zero, then continue test 
E2BB: 60 RTS Return from subroutine 


KARKKKKKKKEKKK KKK KKKKKKKK KKK KKK High addresses for cartridge test 


E2BC: CO 80 CO 80 $C000, $8000, $C000, $8000 
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KRKEKKKKEKKKKEKKEKEKKKKKKKKKEKKKKKKKK 


E2C0: 


04 04 08 


08 


KHAEKKKKKKKKKEKKKEKKKKKKEKKKKKKKKK 


E2C4: 


43 42 4D 


KKKKK KKK KRKEKRE KKK KKKREREKKK 


E2C7: 
E2CF: 
E2D7: 
E2DF: 
E2E7: 
E2EF: 
E2F7: 


00 00 00 
00 00 00 
00 1B FF 
14 FF O01 
OD OB O01 
01 02 03 


00 00 00 00 
00 00 00 00 
00 00 00 08 
00 00 00 00 
02 03 01 02 
04 05 06 07 


KHKKKKKKEKKKKEKKREKKEKKEKKKKEKKEKKKKKE 


E2F8: 
E300: 
E308: 
E310: 
E318: 
E320: 
E328: 
E330: 
E332: 
E333: 
E335: 
E336: 
E33A: 


00 7E 01 
04 20 05 
08 00 09 
0c 00 OD 
14 08 15 
19 40 1A 
1D 07 22 
16 78 

FF 

19 47 

FF 

04 27 07 
FF 


50 02 66 03 
00 06 19 07 
07 OA 20 OB 
00 OE 00 OF 
00 17 08 18 
FO 1B 00 1c 
7D 23 64 24 


-Byte SFF 
-Byte S$FF 


20 
-Byte SFF 


49 
1D 
07 
00 
20 
20 
05 


KKREKKEKKKKKKKEKKKKEKKKKEKRKEKKEKRKKKEEKE 


E33B: 
E33D: 
E33E: 
E340: 


09 40 

2c 

09 20 

20 EC E7 


ORA # $40 
-Byte $2C 
ORA # $20 
JSR SET7EC 
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Bank numbers for cartridge test 
inROM,inROM,exROM,exROM 
Code for cartridge indication 
<C> <B> <M> 


Intialization table for VIC regs 


Initialization table for VDC regs 
VDC tab 1 


Separator 
VDC tab 2 
Separator 
VDC tab 3 
Separator 


Kernal routine: TALK 


Set bit 6 for TALK 

Skip to $E340 

Set bit 5 for listen 

Wait for end of RS-232 transfer 


Abacus Software C-128 Internals 
ee 


KARKKKK KKK KK KE AK KKK KK KAK KR AK KA Kernal routine: LISTN 

E343: 48 PHA Save Talk/Listn marker on stack 
E344: 24 94 BIT * $94 Another byte to output? 

E346: 10 0A BPL $E352 No, then continue 

E348: 38 SEC Set carry for rotation 

E349: 66 A3 ROR * $A3 Set flag for EOI 

E34B: 20 8C E3 JSR $E38C Output byte to serial bus 

E34E: 46 94 LSR * $94 Erase character in buffer marker 
E350: 46 A3 LSR * $A3 Clear flag for EOI again 

E352: 68 PLA Get old acc contents back 

E353: 85 95 STA * $95 Store byte to output in zero page 
E355: 2073 E5 JSR $E573 SEI, 1 MHz, turn sprites off 
E358: 2057 E5 JSR $E557 Output data high 

E35B: AD 00 DD LDA SDDO0O Check if the ATN signal is set 
E35E: 29 08 AND # $08 On data port A of CIA 2 

E360: DO 12 BNE $E374 Not set, then skip 

E362: 20 D6 E5 JSR $E5D6 Pulse for fast serial mode 

E365: AQ FF LDA # $FF I/O data buffer for serial 

E367: 8D 0C DC STA SspDcoc Set transfer to high value 

E36A: 20 BC E5 JSR SE5BC Wait for response from bus 
E36D: 8A TXA Store X-reg contents in acc 
E36E: A2 14 LDX # $14 Set loop counter to 20 

E370: CA DEX Decrement loop counter by 1 
E371: DO FD BNE $E370 Wait until loop counted down 
E373: AA TAX Recreate old X-reg contents 
E374: AD 00 DD LDA S$DDO0O0 Read port A of CIA 2 

E377: 09 08 ORA # $08 Set ATN lo signal & write back 
E379: 8D 00 DD STA _ $DD00 to Port A of CIA 2 

E37C: 2073 E5 JSR $E573 Clk freq. 1MHz, turn sprites off 
E37F: 20 4E E5 JSR SE54E Output clock low 

E382: 2057 E5 JSR $E557 Output data high 
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KKKKKK KKK KKK KKK KKK KKK KKK KKK Delay loop about 1 millisecond 


E385: 8A TXA Store X-reg contents in acc 
E386: A2 B8 LDX # $B8 Set loop counter to 184 
E388: CA DEX Decrement loop counter by 1 
E389: DO FD BNE $E388 Loop until counter = 0 
E38B: AA TAX Restore X-reg contents 


KKK KR KKK KKK KKK KK KK RRR KKK KERR Byte on serial bus (prepare) 


E38C: 20 73 E5 JSR $E573 Clock freq. 1 MHZ, sprites off 
E38F: 2057 E5 JSR $E557 Output data high 

E392: 20 69 ES JSR $E569 Get bit from serial bus into carry 
E395: 90 03 BCC $E39A Data not low, then OK and skip 
E397: 4C 28 E4 JMP $E428 "Device not present" - sys status 
E39A: 2C 0D DC. BIT S$DCOD Test CIA interrupt control reg. 
E39D: 20 45 E5 JSR $E545 Output clock high 

E3A0: 24 A3 BIT * $A3 Zero-page pointer for EOI set? 
E3A2: 10 OA BPL $E3AE No, then skip 

E3A4: 20 69 E5 JSR $E569 Get bit from serial bus into carry 
E3A7: 90 FB BCC $E3A4 Wait for data low signal 

E3A9: 20 69 E5 JSR $E569 Get bit from serial bus into carry 
E3AC: BO FB BCS S$E3A9 Wait for data high signal 

E3AE: AD 00 DD LDA $DD00 Here data is read from port A 
E3B1: CD 00 DD CMP S$DD00 Of CIA 2 

E3B4: DO F8 BNE S$E3AE 

E3B6: 48 PHA Data read are stored on the stack 
E3B7: AD 0D DC LDA §$DCOD Check interrupt control register 
E3BA: 29 08 AND # $08 Is timer A on "one shot"? 

E3BC: FO 05 BEQ $E3C3 Yes, then skip 

E3BE: A9 CO LDA # $CO Set Control bits 6 and 7 in sys- 
E3C0: 8D 1C 0A’ STA $0AI1C tem pointer for fast serial mode 
E3C3: 68 PLA Get data read back from stack 
E3C4: 10 E8 BPL SE3AE Bit 7 cleared, then skip 

E3C6: 09 10 ORA # $10 Set bit 4 for clk output on serial 
E3C8: 8D 00 DD STA §$DD00 bus and write in port A 

E3CB: 29 08 AND # $08 Check if bit 3 is set 

E3CD: DO 13 BNE S$E3E2 No, then skip 

E3CF: 2C 1C 0A BIT SOAIC Check bit 7, serial mode pointer 
E3D2: 10 OE BPL $E3E2 Bit 7 cleared, then skip 
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E3D4: 
E3D7: 
E3D9: 
E3DC: 
E3DF: 


20 
A5 
8D 
20 
4c 


D6 ES 
95 

0c DC 
BC E5 
12 E4 


JSR 
LDA 
STA 
JSR 
JMP 


SE5D6 
* $95 
$DCOC 
SE5BC 
$E412 


KKKKKKKEKKKKKEKEKKKKKKKKKKKKKKKKK 


E3E2: 
E3E4: 
E3E6: 
E3E9: 
E3EC: 
E3EE: 
E3EF: 
E3F1: 
E3F3: 
E3F5: 
E3F8: 
E3FA: 
E3FD: 
E400: 
E401: 
E402: 
E403: 
E404: 
E407: 
E409: 
E40B: 
E40E: 
E410: 
E412: 
E413: 
E414: 
E416: 
E419: 
E41B: 
E41C: 
E41D: 
E420: 


08 
A5 
00 DD 
00 DD 
F8 


34 
95 
05 
60 E5 
03 
57 E5 
45 ES 


00 DD 
DF 
10 
00 DD 
A5 
D4 


22 
69 E5 
05 


9F E5 


LDA 
STA 
LDA 
CMP 
BNE 
ASL 
BCC 
ROR 
BCS 
JSR 
BNE 
JSR 
JSR 
NOP 
NOP 


# $08 
* SA5 
SDD00 
$SDD00 
SE3E6 
A 

SE425 
* $95 
SE3FA 
$E560 
SE3FD 
$E557 
$E545 


$DD00 
# SDF 
# $10 
$DD00 
* SAS 
SE3E6 


# $22 
SE569 
$E420 


SE59F 
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Impulse for fast serial mode 
Get stored byte and write in 
CIA input/output register 
Wait for response from bus 
Byte output over serial bus 


Byte on serial bus (output) 


Initialize counter for number of 
Bits to send with 8 

Here data is read from port A 
Of CIA 2 


Data shifted into the carry flag 
Output data high,output timeout 
Prepare bit for output 

Check if bit is set 

No, then output data low 

And jump to clock high output 
Output data high 

Output clock high 

No Operation 

No Operation 

No Operation 

No Operation 

Read port Aof CIA 2 | 

Bit 5:Clear data output serial bus 
Bit 4:Set clock output serial bus 
Write in data port A 

Decrement bit counter by 1 
Output additional bit, then loop 
Copy contents of X-reg to acc 
And store X-reg on stack 

High impulse counter to #34 
Get 1 bit from serial bus to carry 
Data high, then skip 

Get old X-reg contents from 
stack and restore 

Reset clock freq. and sprites 
Decrement data high counter 


Abacus Software C-128 Internals 





E421: DO F3 BNE $E416 Not yet 22 high pulses, continue 
E423: 68 PLA Get old X-reg contents f/ stack 
E424: AA TAX Restore X-reg contents 
E425: A9 03 LDA # $03 Code for system status: Time out 
E427: 2c .Byte $2C Skip to $E42A 
E428: A9 80 LDA # $80 Code status:Device not present 
E42A: 48 PHA Store status code on stack 
E42B: AD 1c 0A LDA $0A1C Test the fast serial mode pointer 
E42E: 29 7F AND # S7F Mask out bit 7, only fast/slow 
E430: 8D1C 0A STA S0AI1C Write in fast-mode flag 
E433: 68 PLA Get status error code 
E434: 2057 F7 JSR $F757 Set new system status 
E437: 20 9F ES JSR SE59F Reset clock freq. and sprites 
E43A: 18 CLC Set indicator for OK 
E43B: 4C 35 E5 JMP $E535 Turn off device with Unisn 
KKKKKKKEKKKKKKAE KKK KEKE RARE REE Kernal routine: ACPTR 

Get byte from serial bus 
E43E: 20 73 E5 JSR $E573 System clk 1MHz, sprites off 
E441: A9 00 LDA # $00 Clear the zero-page ptr for the 
E443: 85 A5 STA * $A5 serial EOI indicator 
E445: 2C 0D DC BIT S$DCOD Read bit 7 of the CIA ISR 
E448: 8A TXA Store current cont of the X-reg 
E449: 48 PHA Via the acc on the stack ; 
E44A: 20 45 E5 JSR $E545 Clock signal on port A 
E44D: 20 69 E5 JSR $E569 Get bit from serial bus into carry 
E450: 10 FB BPL $E44D Wait for data high signal 
E452: A2 0D LDX # $0D Initialize loop counter with #13 
E454: AD 00 DD LDA $DD00 Read data port A of CIA 2 
E457: 29 DF AND # SDF Bit 6: clear "serial bus pulse on" 
E459: 8D 00 DD STA S$DD00 And write in data port 
E45C: AD 00 DD LDA S$DD00 Read data port A of CIA 2 and 
E45F: CD 00 DD CMP S$DD00 A bit arrives over the bus 
E462: DO F8 BNE S$E45C On the port 
E464: OA ASL A Shift data bit into the carry flag 
E465: 10 1D BPL $E484 Get data byte from bus 
E467: CA DEX Decrement loop counter by 1 
E468: DO F2 BNE $E45C Loop not zero, then skip 
E46A: A5 AS LDA * $A5 Test zero-page EOI pointer 
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E46C: DO OF BNE S$E47D For #0, EOI received, else skip 
E46E: 20 60 E5 JSR $E560 Data low signal on serial bus 
E471: 20 45 E5 JSR $E545 Clock high signal on serial bus 
E474: AQ 40 LDA # $40 Code for status: EOI line 
E476: 2057 F7 JSR $F757 Reset system status 

E479: E6 AS INC * $A5 EOI pnter to time error if timeout 
E47B: DO D5 BNE $E452 Get data byte to EOI 

E47D: 68 PLA Restore stored X-reg contents 
E47E: AA TAX via the acc from the stack 
E47F: A9 02 LDA # $02 Code status: timeout for reading 
E481: 4C 2A E4 JMP $E42A Reset system status 

E484: A2 08 LDX # $08 Set counter for 8 data bits 
E486: AD OD DC LDA $DCOD Read interrupt control register 
E489: 29 08 AND # $08 Test if timer, clock, or bus 
E48B: DO 28 BNE $E4B5 Interrupt. Yes, then skip 

E48D: AD 00 DD LDA S$DDO00 Read data port A of CIA 2 and 
E490: CD00 DD CMP S$DD00 Wait until a bit arrives over 
E493: DO F8 BNE $E48D The port 

E495: OA ASL A Shift data bit into the carry 
E496: 10 EE BPL $E486 No, wait until data are valid 
E498: 66 A4 ROR * SA4 Data bit in bit storage 

E49A: AD 00 DD LDA S$DD00 Read data port of CIA 2 and 
E49D: CD 00 DD CMP S$DD00 Wait until a bit arrives over 
E4A0: DO F8 BNE SE49A The port 

E4A2: OA ASL A Shift data bit into the carry flag 
E4A3: 30 F5 BMI $E49A No, then wait 

E4A5: CA DEX Counter for data bit number -1 
E4A6: FO 17 BEQ SE4BF 8 data bits arrived, then skip 
E4A8: AD 00 DD LDA $DD00 Read data port A of CIA 2 and 
E4AB: CD 00 DD CMP S$DD00 Wait until a bit arrives over 
E4AE: DO F8 BNE S$E4A8 The port 

E4B0: OA ASL A Shift data bit into the carry flag 
E4B1: 10 F5 BPL $E4A8 Jump if bit received is "0" 
E4B3: 30 E3 BMI $E498 Jump if bit received is "1" 
E4B5: AD O0C DC LDA §spDc0c Store contents of I/O data buffer 
E4B8: 85 A4 STA * SA4 In the zero page 

E4BA: A9 CO LDA # $CO0 Set bits 6 and 7 in the sys flag 
E4BC: 8D 1C 0A STA S$O0A1C For the fast serial mode 

E4BF: 68 PLA Restore old X-reg contents via 
E4cO: AA TAX The acc from the stack 
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E4Cl: 
E4C4: 
E4C6: 
E4C8: 
E4CB: 
E4CE: 
E4D0: 
E4D1: 


20 
24 
50 
20 
20 
A5 
18 
60 


60 
90 
03 
38 
oF 
A4 


E5 


E5 
E5 


JSR 
BIT 
BVC 
JSR 
JSR 
LDA 
CLC 
RTS 


$E560 
* $90 
SE4CB 
$E538 
SE59F 
* SA4 


KREKKKKKKEKKKKKEKKKEKKKKKKKKKKKKK 


E4D2: 
E4D4: 
E4D7: 
E4DA: 
E4DC: 
E4DF: 


85 
20 
AD 
29 
8D 
60 


95 
7c 
00 
F7 
00 


E3 
DD 


DD 


* $95 
$E37C 
$DD00 
# SF7 
$DD00 


KRREKKKKKKEKKKKKKEKKKKKEKRKKKKKKKKEK 


E4E0: 
E4E2: 
E4E5: 
E457: 
E4E9: 
E4EC: 
E4EF: 
E4F2: 
E4F5: 
E4F8: 
E4FB: 
E4FD: 
E4FE: 
E500: 


85 
20 
24 
30 
20 
20 
20 
20 
AD 
cD 
DO 
OA 
30 
4c 


95 
7¢ 
90 
4c 
73 
60 
D7 
45 
00 
00 
F8 


F5 
OF 


E3 


E5 
E5 
E4 
E5 
DD 
DD 


E5 


STA 
JSR 
BIT 
BMI 
JSR 
JSR 
JSR 
JSR 
LDA 


* $95 
$E37C 
* $90 
$E535 
$E573 
$SE560 
SE4D7 
$E545 
$DD00 
SDD00 
SE4F5 
A 

SE4F5 
SE59F 
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Data low signal on serial bus 
Test STATUS for set EOI bit 
No EOF found, then continue 
Shut device off - Unlsn routine 
Reset clock freq and sprites 

Get data byte in the accumulator 
Set indicator for OK 

Return from subroutine 


Kernal routine: SECND 
Send sec. address after LISTEN 


Store sec. address in zero page 
Output with attention (ATN) 
Read data port A of CIA 2 
Mask out bit 3 and take the ATN 
Signal back to the serial bus 
Return from subroutine 


Kernal routine: TKSA 


Store secondary add in zero page 
Output with attention (ATN) 
Test STATUS for set EOF bit 
EOF encounter, to Unlsn routine 
Clock freq1MHz, sprites off 
Data low signal on serial bus 
Entry in SECND routine 

Clock high signal on serial bus 
Read data port A of CIA 2 and 
Wait until a bit arrives over the 
Port 

Shift data bit into the carry 

And wait for data high 

Reset clock freq and sprites 
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KKKKKKK KAKA K KAR KKK KKK KAR KK RR KK Kernal routine: CIOUT 


E503: 24 94 BIT * $94 Output another byte? 

E505: 30 05 BMI $E50C Yes, then to output loop 

E507: 38 SEC Set carry for rotation 

E508: 66 94 ROR * $94 Set flag for buffered byte 

E50A: DO 05 BNE $E511 Skip output loop 

E50C: 48 PHA Save the byte on the stack 

E50D: 20 8C E3 JSR $E38C Output buffered byte on stack 
E510: 68 PLA Get byte from the stack 

E511: 85 95 STA * $95 Place in zero-page output storage 
E513: 18 CLC Carry set for "OK" indicator 


E514: 60 RTS Return from subroutine 


KKRKKRK KKK KKK KKK KK KKA RK RK EKER Kernal routine: UNTLK 


E515: 2073 E5 JSR $E573 Reset clock frequency 

E518: 20 48 E5 JSR S$E54E Clock low signal to port A 
E51B: AD 00 DD LDA §$DD00 Read data port A of CIA 2 
E51E: 09 08 ORA # $08 Set bit 3 in this value and 
E520: 8D 00 DD STA $DD00 Output ATN lo signal on the bus 
E523: AQ SF LDA # $5F Load code for UNTLK in acc 
E525: 2c .Byte $2C Skip to $E528 
KHAEKKKKKKKKEKKKKEKKKKKRKKKKKKKEKE Kernal routine: UNLSN 
E526: A9 3F LDA # $3F Load code for UNLSN in acc 
E528: 48 PHA And store on stack 

E529: AD 1C 0A LDA SO0AIC Status pointer for "fast serial" 
E52C: 29 7F AND # S7F Mask out bit 7 

E52E: 8D 1C0A STA $0A1C And write back 

E531: 68 PLA Restore old acc contents 
E532: 20 43 E3 JSR $E343 Kernal routine: LISTN 

E535: 20 D7 E4 JSR $E4D7 Reset ATN, high 

E538: 8A TXA Store X-reg contents in acc 
E539: A2 OA LDX # $0A Time loop for 40 microseconds 
E53B: CA DEX Decrement loop counter by 1 
E53C: DO FD BNE $E53B Wait until loop processed 
E53E: AA TAX Restore old X-reg contents 
E53F: 20 45 ES JSR $E545 Clock high signal on port A 
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E542: 


4C 57 ES 


JMP $E557 


KREEKKKKEKEKKKKKKKEKKKKKKKKKKKKKKK 


E545: 
E548: 
E54A: 
E54D: 


AD 00 DD 
29 EF 

8D 00 DD 
60 


LDA 
AND 
STA 
RTS 


$DD00 
# SEF 
$DD00 


KKEKKKKKKEKKEKKKKKKKKKKKKKKKKKKEKE 


E54E: 
E551: 
E553: 
E556: 


AD 00 DD 
09 10 

8D 00 DD 
60 


LDA 
ORA 
STA 
RTS 


$DD00 
# $10 
$DD00 


KKKKKKKKKKKKKEKEKKKKKKKKKKKRKKKKEK 


E557: 
E55A: 
E55C: 
E55F: 


AD 00 DD 
29 DF 

8D 00 DD 
60 


LDA 
AND 
STA 
RTS 


$DD00 
# SDF 
$DD00 


KKKEKKKKKKKKKKKKKKKKKKKKKKKKKKE 


E560: 
E563: 
E565: 
E568: 


AD 00 DD 
09 20 

8D 00 DD 
60 


LDA 
ORA 
STA 
RTS 


$DD00 
# $20 
$DD00 


RHEKKKKKKKKKKKEKKKKKEKKEKKKKKKKKKK 


E569: 
E56C: 
ES6F: 
E571: 
E572: 


AD 00 DD 
CD 00 DD 
DO F8 

OA 

60 


LDA 
CMP 
BNE 
ASL 
RTS 


$DD00 
$DD00 
$E569 


A 
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Data high signal on port A 
Clock high signal 


Read data port A of CIA 2 
Clear bit 4 for clock output on 
serial bus and write in port A 
Return from subroutine 


Clock low signal 


Read data port A of CIA 2 
Set bit 4 for clock output on 
serial bus and write in port A 
Return from subroutine 


Data high signal 


Read data port A of CIA 2 
Clear bit 5 for data output on 
serial bus and write in port A 
Return from subroutine 


Data Lo Signal 


Read data port A of CIA 2 

Set bit 5 for data output on serial 
Bus and write in port A ; 
Return from subroutine 


Get a bit from serial bus to carry 


Read data port A of CIA 2 and 
Wait until a bit arrives over 
The port 

Bit received (bit 7) into carry 
Return from subroutine 
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KARKK KKK KKK KKK KKK KK KKK KK KKK KKK Set system clock freq. to IMHz 
And turn all sprites off 

E573: 78 SEI Disable all system interrupts 

E574: 2C 3A 0A’ BIT S$0A3A Test interrupt storage 

E577: 30 25 BMI $E59E Bit 7 set, then return 

E579: 2C 37 0A’ BIT $0A37 Check clock frequency 

E57C: 30 20 BMI SE59E Bit 7 set, then return 

E57E: AD 30 DO LDA §$D030 VIC register for clock frequency 

E581: 8D 37 0A STA $0A37 Save in system storage 

E584: AD 15 DO LDA §$D015 Enable VIC registers for sprites 

E587: 8D 38 0A STA $0A38 Save in system storage 

E58A: A9 00 LDA # $00 Init. status for 1 MHz, no sprites 

E58c: 8D 15 DO STA $D015 Turn all sprites off 

E58F: 8D 30 DO STA $D030 Set clock frequency to 1 MHz 

E592: AD 38 0A LDA $0A38 Were sprites on? 

E595: FO 07 BEQ $E59E No, then return 

E597: 8A TXA Store X-reg contents in acc 

E598: A2 00 LDX # $00 Delay loop for 1.3 milliseconds 

E59A: CA DEX Decrement loop counter by 1 

E59B: DO FD BNE $E59A Process entire delay loop 

E59D: AA TAX Restore old X-reg contents 

E59E: 60 RTS Return from subroutine 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK Reset clock frequency and sprite 
pointers to their original status 


E59F: 2C 3A 0A’ BIT $0A3A Test interrupt storage 

E5A2: 30 16 BMI SE5BA Bit 7 set, then return 

E5A4: 2C 37 0A BIT $0A37 Check clock frequency storage 
E5A7: 10 11 BPL $E5BA Frequency not changed, skip 
E5A9: AD 38 0A LDA $0A38 Write the stored value of sprite 
E5AC: 8D 15 D0 STA $D015 Enable register back 

E5SAF: AD 37 0A LDA $0A37 Write the stored value of system 
E5B2: 8D 30 DO STA $D030 Clock frequency back 

E5B5: A9 00 LDA # $00 Clear temp storage for 

E5B7: 8D 37 0A STA $0A37 System clock frequency 

E5BA: 58 CLI Enable all system interrupts 
E5BB: 60 RTS Return from subroutine 
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KKKKKKKKKKKKKEKKKKKKKKEKEK KKK KKK Wait for response from bus 


E5BC: AD 0D DC LDA S$DCOD Get CIA interrupt control reg. 
ESBF: 29 08 AND # $08 Wait until bit 4 (SRQ input from 
E5Cl: FO F9 BEQ SE5BC Serial bus) is cleared 

E5C3: AD OE DC LDA SDCOE Read control register A of CIA 
E5C6: 29 80 AND # $80 - Eliminate bit 7 for 50 Hz freq. 
E5C8: 09 08 ORA # $08 Set timer to mode toggle and 
E5CA: 8D 0E DC STA S$DCOE "One shot" and start timer 
E5CD: AD 05 D5 LDA §$D505 Mask out the control bit for fast 
E5D0: 29 F7 AND # $F7 Serial mode in mode config. reg 
E5D2: 8D 05 D5 STA $D505 Of the MMU 

E5D5: 60 RTS Return from subroutine 

KA KIK AK KKK K KEKE RR KEK KKK RR RREK Fast pulse on serial bus 

E5D6: AD 05 D5 LDA $D505 Set the control bit for the fast 
E5D9: 09 08 ORA # $08 Serial mode in mode config reg 
E5DB: 8D 05 D5 STA §$D505 Of the MMU 

E5DE: A9 7F LDA # $7F Clear code for interrupt 

E5E0: 8D 0D DC STA $DCOD To interrupt control register 
E5E3: A9 00 LDA # $00 Load timer A high in CIA 2 with 
E5E5: 8D 05 DC STA §$DC05 the high value #0 

E5E8: A9 04 LDA # $04 Load timer A low in CIA 2 with 
E5EA: 8D 04 DC STA §$DC04 the low value #4 

E5ED: AD 0E DC LDA S$DCOE Read control register A of CIA 
E5FO0: 29 80 AND # $80 Eliminate bit 7 for 50 HZ freq 
E5F2: 09 55 ORA # $55 Set timer to force load, toggle 
E5F4: 8D OE DC STA SDCOE Serial bus off and start timer A 
E5F7: 2C 0D DC’ BIT $DCOD Read interrupt control register 
E5FA: 60 RTS Return from subroutine 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKE Kernal routine: FSTMOD 


E5FB: 90 C6 BCC S$E5C3 Wait - response from serial bus 
E5FD: BO D7 BCS SES5D6 Fast pulse on serial bus 
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KRKKKEKRKKKKAKKKKRKKKKKKKKKKKKEKEK RS-232 output 

E5FF: A5 B4 LDA * $B4 Number of bits to send 

E601: FO 47 BEQ SE64A Is byte completely transferred? 
E603: 30 3F BMI SE644 Is stop bit required? 

E605: 46 B6 LSR * $B6 Shift next bit into carry 

E607: A2 00 LDX # $00 Initialize X-reg as ind. with $00 
E609: 90 01 BCC $E60C Bit cleared? 

E60B: CA DEX No, then set X-reg to $FF 
E60C: 8A TXA Copy bit cleared indicator to acc 
E60D: 45 BD EOR * SBD Combine with parity status 
E60F: 85 BD STA * SBD Save again in zero-page parity 
E611:. C6 B4 DEC * $B4 Decrement bit counter by 1 
E613: FO 06 BEQ $E61B All bits transferred, continue 
E615: 8A TXA Copy X-reg contents into acc 
E616: 29 04 AND # $04 Isolate bit 2 

E618: 85 BS STA * $B5 And put in output register 
E61A: 60 RTS Return from subroutine 
KKKKKKKKKKRK KKK KKK KKEK KARR ERK Check transmit parity 

E61B: A9 20 LDA # $20 Set bit 5 in acc for parity 
E61D: 2C 110A BIT $0A11 Check RS-232 command reg. 
E620: FO 14 BEQ $E636 Op. mode without parity, skip 
E622: 30 1c BMI $E640 Op. mode with set parity? 
E624: 70 14 BVS SE63A Op. mode for uneven parity? 
E626: A5 BD LDA * $BD Parity equal orie? 

E628: DO 01 BNE $E62B No, then skip 

E62A: CA DEX Set parity to $FF 

E62B: C6 B4 DEC * $B4 Set bit counter to $FF 

E62D: AD 100A LDA $0A10 Get RS-232 control reg. in acc 
E630: 10 E3 BPL $E615 Are two stop bits required? 
E632: C6 B4 DEC * $B4 Set bit counter to $FE 

E634: DO DF BNE $E615 Not zero, calculate stop bits 
E636: E6 B4 INC * $B4 Bit counter +1, no parity 
E638: DO FO BNE S$E62A Not zero, calculate stop bits 
E63A: A5 BD LDA * $BD Get parity value from zero page 
E63C: FO ED BEQ $E62B Output a zero bit for 0 

E63E: DO EA BNE SE62A Not zero, then output 1-bit 
E640: 70 E9 BVS $E62B Routine: output 0-bit 
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E642: 
E644: 
E646: 
E648: 


50 
E6 
A2 
DO 


E6 
B4 
FF 
CB 


BVC 
INC 
LDX 
BNE 


SE62A 
* SB4 
# SEF 
$E615 


KRKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


E64A: 
E64D: 
E64E: 
E650: 
E653: 


E655: 


E657: 
E659: 
E65B: 
E65D: 
E660: 
E662: 
E665: 
E668: 
E66A: 
E66C: 
E66E: 
E671: 


AD 
4A 
90 
2c 
10 


50 


FO 
Bl 
85 
EE 
60 


11 0A 


07 
01 DD 
1D 


1E 


00 
BD 
B5 
15 OA 
B4 
1A 0A 
1B 0A 
13 
CA 
B6 
1A 0A 


LDA 
LSR 
BCC 
BIT 
BPL 


BVC 


LDA 
STA 
STA 
LDX 
STX 
LDY 
CPY 
BEQ 
LDA 
STA 
INC 
RTS 


$0A11 
A 

$E657 
$DD01 
$E672 


$E675 


# $00 
* SBD 
* $B5 
$0A15 
* $B4 
SOA1A 
$0A1B 
SE67D 


(SCA) ,Y 


* SBE 
SOA1A 


KRKKKKEKKKKKEKKKKKKKKKKKKKKKKKKK 


E672: 


E674: 
E675: 


E677: 
E67A: 
E67D: 
E67F: 
E682: 


A9 


2c 
A9 


0D 
8D 
A9 
8D 
4D 


40 


10 


14 OA 
14 OA 
01 

OD DD 
OF OA 


LDA 


# $40 


-Byte $2C 


LDA 


ORA 
STA 
LDA 
STA 
EOR 


# $10 


$0A14 
$0A14 
# $01 
SDDOD 
SOAOF 
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Routine: output 1-bit-fixed parity 
Increment bit counter by 1 

Put code value- stop bit in X-reg 
Unconditional jump 


3-line / X-line handshake test 


Load acc with RS-232 cmd reg 
Shift bit 0 into carry flag 

Skip 3-line handshake read 
Read port B of CIA 2 

Is DATA SET READY (DSR) 
signal missing 

Is CLEAR TO SEND (CTS) 
signal missing? 

Clear z-page buffer for RS-232 
Parity ($00) and the zero page 
Storage for the start bit to send 
Copy number of bits to transfer 
Into zero-page as counter 
Comp index to start of output 
buffer with end. If all bytes are 
transferred then done. 

Get data byte from RS-232 
buffer and pass in storage 
Index: incr start of output buffer 
Return from subroutine 


Set NMI status for RS-232 


Code for DATA SET READY 
(DSR) missing 

Skip to $E677 

Code for CLEAR TO SEND 
(CTS) missing 

Combine with RS-232 status reg 
And put in status register 

Load acc with $01 and clear the 
NMI for timer A 

Combine w/ RS-232 NMI status 
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E685: 
E687: 
E68A: 
E68D: 


09 


8D OF OA 


8D 
60 


80 


OD DD 


ORA 
STA 
STA 
RTS 


# $80 
SOAOF 
$DDOD 


KRREKKKKKKKKKKKKEKKKKEKKKKKKKKKKKE 


E68E: 
E690: 
E692: 
E695: 
E697: 
E698: 
E69A: 
E69B: 
E69C: 


A2 
A9 
2c 
FO 
CA 
50 
CA 
CA 
60 


09 
20 
10 OA 
01 


02 


LDX 
LDA 
BIT 
BEQ 
DEX 
BVC 
DEX 
DEX 
RTS 


# $09 
# $20 
$0A10 
SE698 


SE69C 


KRAKKKKKKKKEKKKKKKKKKKKKKKKKKKEK 


E69D: 
E69F: 
E6A1: 
E6A3: 
E6A5: 
E6A7: 
E6A9: 
EGAB: 
E6AD: 
E6AF: 
E6B1: 


A6 
DO 
Cé 
FO 
30 
A5 
45 
85 
46 
66 
60 


A9 
33 
A8 
3A 
0D 
A7 
AB 
AB 
Al 
AA 


LDX 
BNE 
DEC 
BEQ 
BMI 
LDA 
EOR 
STA 
LSR 
ROR 
RTS 


* SA9 
SE6D4 
* SA8 
SE6DF 
SE6B4 
* SAT 
SAB 
SAB 
SAT 
x SAA 


+ + + 


KRKEKKKKKKKKKKEKKREKKKKKKKKKKKKKKKK 


E6B2: 
E6B4: 
E6B6: 
E6B8: 
E6BB: 
E6BC: 


Cé 
A5 
FO 
AD 
OA 
A9 


A8 
A7 
6B 
10 OA 


01 


DEC 
LDA 
BEQ 
LDA 
ASL 
LDA 
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Reverse flag for RS-232 & place 
value in the RS-232 NMI status 
Allow all further NMIs 

Return from subroutine 


Calculate num. RS-232 data bits 


Default value to 8 data bits 
Check value for num of data bits 
Check RS-232 control register 
Bit 5 cleared? 

Decrement number of data bits 
Bit 6 cleared? 

Decrement number of data bits 
Decrement number of data bits 
Return from subroutine 


Process bit received 


Check if it is a start bit 

No, skip 

Decrement bit counter by 1 

All bits received, then continue 
If stop bits expected, then skip 
Get received bit in acc 

And combine for parity 

Place parity value in zero page 
Shift received bit into carry flag 
And in input buffer 

Return from subroutine 


Set start bit pointer when all 
stop bits have been received 


Decrement bit counter by 1 

Get stop bit value in acc and 
Check if it is zero. Skip 
RS-232 control register in acc 
Number of stop bits into carry 
Addition value num of stop bits 
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E6BE: 
E6CO: 
E6C2: 
E6C4: 
E6C7: 
E6CA: 
E6CD: 
E6CF: 
E6D1: 


65 
DO 
A9 
8D 
0D 
8D 
85 
A9 
4c 


A8 
EF 
90 
OD DD 
OF OA 
OF OA 
A9 
02 
TF E6 


* SAB 
SE6B1 
# $90 
SDDOD 
SOAOF 
SOAOF 
* SA9 
# $02 
SE67F 


KRREKKKKKEKKKKKKKKKKEKRKKKKKKKKKKK 


E6D4: 
E6D6: 
E6D8: 
E6DA: 
_ E6DC: 
E6DE: 


A5 
DO 
85 
A9 
85 
60 


A7 
EA 
A9 
01 
AB 


LDA 
BNE 
STA 
LDA 
STA 
RTS 


* SAT 
SE6C2 
* SAQ9 
# $01 
* SAB 


KKKKKKKKRKKKKKKKKKKKKKKKKKKKKKK 


E6DF: 
E6E2: 
E6E3: 
E6E6: 
E6E8: 
E6EB: 
E6EC: 
E6EE: 
E6F1: 
E6F3: 
E6F5: 
E6F6: 
E6F7: 
E6F9: 
E6FB: 
E6FD: 
E700: 
E702: 
E704: 


AC 
c8 
cc 
FO 


18 OA 


19 OA 
2A 
18 OA 


AA 
15 OA 
09 
04 


11 0A 


LDY 
INY 
CPY 
BEQ 
STY 
DEY 
LDA 
LDX 
CPX 
BEQ 
LSR 
INX 
BNE 
STA 
LDA 
BIT 
BEQ 
BMI 
LDA 


$0A18 


$0A19 
$E712 
$0A18 


* SAA 
$0A15 
# $09 
SE6F9 
A 


SE6F1 


($C8) ,Y 


# $20 
$0A11 
SE6B2 
SE6B1 
* SAT 
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Add data bits and stop bits 

Not all stop bits received, skip 
RXD over flag received in acc 
And enable NMI 

Combine w/ RS-232 NMI status. 
And place in RS-232 NMI status 
Set flag for start bit 

Init. acc with 2 for transmission 
And clear the NMI for timer B 


Check for RS-232 start bit 


Get start bit value in acc 

Not zero, skip. Else reset the 
Zero-page start bit flag and reset 
the zero-page ptr for RS-232 
Reset input parity 

Return from subroutine 


Process received byte 


Index to the start of RS-232 
Increment input buffer by 1 
Compare with end. If buffer, 
Then set appropriate status 
Write buffer index 

And decrement by 1 again 

Get received bit from zero page 
Number of data bits in X-reg 

8 bits, 1 stop bit received? 
Yes, then everything OK 

Shift bits in correct position 
Increment data bit counter by 1 
Jump to byte adjustment 

Write byte in input buffer 
Control value for parity check 
Test RS-232 command register 
Transfer is without parity 
Fixed bit value for parity 
Recevied parity bit in acc 
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E706: 
E708: 
E70A: 
E70C: 
E70D: 
E7OF: 
E711: 
E712: 
E714: 
E715: 
E717: 
E718: 
E71A: 
E71D: 
E720: 


45 
FO 
70 
2c 
50 
Ag 
2c 
Ag 
2c 
AQ 
2c 
A9 
OD 
8D 
4c 


80 


02 


14 OA 


14 
C2 


0A 
E6 


EOR 
BEQ 
BVS 


-Byte 


BVC 
LDA 


-Byte 


LDA 


-Byte 


LDA 


* SAB 
$E70D 
SE6B1 


SE6B1 
# $01 


# $04 


# $80 


-Byte $2C 


LDA 
ORA 
STA 
JMP 


# $02 
$0A14 
$0A14 
SE6C2 


$2C 


$2Cc 


$2Cc 


RAEKKKKKKKKKKEKKKKKKKKKKKKKKKKK 


E723: 
E725: 
E727: 
E729: 
E72B: 
E72E: 
E72F: 
E731: 
E733: 
E736: 
E738: 
E73A: 
E73D: 
E73F: 
E741: 
E744: 
E746: 
E749: 
E74B: 
E74E: 
E751: 
E753: 


AA 
Fl 
EC 
9A 
11 


29 
02 
01 
1D 
20 
OF 
02 
F9 
01 
FB 
01 
02 
01 
01 
07 
F9 


OA 


DD 


OA 


‘DD 


DD 


DD 
DD 


LDA 
BNE 
BEQ 


* SAR 
$E718 
$E715 
* SOA 
$0A11 
A 

SE75A 
# $02 
$DD01 
$E755 
SE75A 
SOAOF 
# $02 
$E73A 
$DD01 
$E741 
$DD01 
# $02 
$DD01 
$DD01 
SE75A 
$SE74E 
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Compare with calculated parity 
Equal, then continue with OK 
Equal parity, continue with OK 
Skip to $E70F 

Unequal parity,continue w/ OK 
Code for parity error in acc 
Skip to $E714 

Input buffer full of code in acc 
Skip to $E717 

Break command received in acc 
Skip to $E71A 

Load error code in Acc. 
Combine code w/ RS-232 status 
And place in RS-2372 status reg 
Jump: receive the next byte 


RS-232 CKOUT, output RS-232 


Get received byte in acc 

Framing error 

Break command received 

Place device num in zero page 
Load RS-232 command register 
Shift bit 0 (handshake) into carry 
Jump for 3-line handshake 
Code DATA SET READY test in 
acc. Read port B of CIA 2 

No DSR signal, then error 

No Request To Send signal 

Get RS-232 NMI status in acc 
When data-receive is active, then 
Wait, until reception is done 
Read port B of CIA 2 

Wait for Clear To Send signal 
Read port B CIA 2 and set bit 2 
For Request To Send signal 
Write in port B 

Read port B CIA2 and wait for 
Clear To Send signal 

Poll Data Set Ready 
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E755: AQ 40 LDA # $40 Code - missing Data Set Ready 
E757: 8D 140A STA $0A14 Write signal in RS-233 status 
E75A: 18 CLC Set carry for OK indicator 
E75B: 60 RTS Return from subroutine 
KARKKKKKKKEKKKK KKK KKRKKKKRKKKKK Output in RS-232 Buffer 


CTS = Clear to send 
DSR = Data set read 


E75C: 20 70 E7 JSR _ $E770 Start transfer is necessary 

E75F: AC 1B 0A LDY SO0A1B Index end RS-232 output buffer 
E762: C8 INY Get in X-reg and increment by 1 
E763: CC 1A 0A cCPY S$O0AI1A Comp with start of output buffer 
E766: FO F4 BEQ $E75C Buffer full, then wait 

E768: 8C 1B 0A STY S$O0AI1B Set new index to output buffer 
E76B: 88 DEY And decrement this pointer by 1 
E76C: A5 9E LDA * $9E Get byte to output in acc 

E76E: 91 CA STA (SCA),Y And write in output buffer 
E770: AD OF 0A LDA SOAOF Copy RS-232 NMI flag into acc 
E773: 4A LSR A Test if bit 0 is set 

E774: BO 1E BCS $E794 Sending already? 

E776: A9 10 LDA # $10 Initialize timer A with $10 
E778: 8D OE DD STA S$DDOE And then start it 

E77B: AD 16 0A LDA $0A16 Set the 2-byte timer for the 
E77E: 8D 04 DD STA $DD04 Transmit baud rate in 

E781: AD 17 0A LDA $0A17 $DD04-$DD05 

E784: 8D 05 DD STA $DD05 

E787: A9 81 LDA # $81 Code timer A underflow NMI 
E789: 20 7F E6 JSR SE67F NMI on underflow of timer A 
E78C: 20 4A E6 JSR SE64A Chk CTS+DSR, enable transfer 
E78F: AQ 11 LDA # $11 Initialize timer A with $11 
E791: 8D OE DD STA SDDOE And start it 

E794: 60 RTS Return from subroutine 


KAEKKRKKKKKK KK KKK KKK KK KKK KKK RS-232 CHKIN, Set RS-232 


input 
E795: 85 99 STA * $99 Place device num. in zero-page 
E797: AD 110A LDA SO0A11 RS-232 command register in acc 
E79A: 4A - LSR A Shift bit 0 (handshake) into carry 
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E79B: 90 28 BCC $E7C5 3-line handshake, then continue 
E79D: 29 08 AND # $08 Test duplex operation 

E79F: FO 24 BEQ $E7C5 Full duplex, then continue 
E7A1: A9 02 LDA # $02 Code for DSR signal test 

E7A3: 2C 01 DD BIT S$DD01 Test port B of CIA 2 for DSR 
E7A6: 10 AD BPL $E755 Missing, then set status and exit 
E7A8: FO 22 BEQ SE7CC Test Ready to Send signal 
E7AA: AD OF 0A LDA SOAO0F RS-232 NMI status flag in acc 
E7AD: 4A LSR A Is send operation active, then 
E7AE: BO FA BCS $E7AA Wait until transfer finished 
E7B0: AD 01 DD LDA §$DD01 Read port B of CIA and 

E7B3: 29 FD AND # SFD Eliminate bit 0 - Request to Send 
E7B5: 8D 01DD STA SDDO1 Return signal on port B 

E7B8: AD 01 DD LDA S$DD01 Read port B of CIA 2 and 
E7BB: 29 04 AND # $04 Check D T R signal 

E7BD: FO F9 BEQ SE7B8 Not present, then wait 

E7BF: A9 90 LDA # $90 Get NMI mask for "flag" in acc 
E7C1l: 18 CLC Clear carry as OK indicator 
E7C2: 4C 7F E6 JMP SE67F Enable RS-232 NMI 


KKK KKK RK KK KKK KK KA KK RKKKKKRKKKK RS-232 CHKIN for 3-line 


handshake 
E7C5: AD OF OA LDA SOAOF Get RS-232 NMI status in acc 
E7C8: 29 12 AND # $12 If the RS-232 is not yet active 
E7CA: FO F3 BEQ SE7BF Then start 
E7CC: 18 CLC Clear carry as OK indicator 
E7CD: 60 RTS Return from subroutine 
KEKKEKKKKKKKKKKKEKRKEKKKKEKEREKKK GET from RS-232 
E7CE: AD 14 0A LDA $0A14 Get RS-232 status byte in acc 
E7D1: AC 19 0A LDY $0A19 Index end RS-232 input buffer 
E7D4: CC 18 OA CPY $0A18 Comp with start of input buffer 
E7D7: FO 0B BEQ SET7E4 If equal, then buffer empty: Skip 
E7D9: 29 F7 AND # $F7 Mask out bit 3 (buffer empty) 
E7DB: 8D 140A STA $0A14 And clear in RS-232 status 
E7DE: Bl C8 LDA ($C8),Y Read 1 byte from RS-232 buffer 
E7EO: EE 19 0A INC $0A19 Index RS-232 input buffer + 1 
E7E3: 60 RTS Return from subroutine 
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KAKKKKKKKEKKKKKEKKEKKKEKKKKKKKKKKKE 


E7E4: 
E7E6: 
E7E9: 
E7EB: 


09 
8D 
AQ 
60 


08 
14 OA 
00 


ORA 
STA 
LDA 
RTS 


# $08 
$0A14 
# $00 


KKKKKKKKKKKKKKKKKKEKKEKKKKKKKKKE 


E7JEC: 
E7ED: 
EVFO: 
E7VF2: 
E7F5: 
EVF7: 
E7F9: 
E7FB: 
E7FE: 
E800: 
E803: 
E804: 


48 
AD 
FO 
AD 
29 
DO 
AQ 
8D 
A9 
8D 
68 
60 


OF OA 
11 
OF OA 
03 
F9 
10 
0D DD 
00 
OF OA 


SOAOF 
$E803 
SOAOF 
# *03 
SE7TF2 
# $10 
$SDDOD 
# $00 
SOAOF 


KEKKEKKKKEKEKKKKKKKEKKKKKKKKKKKKKK 


E805: 
E806: 
E809: 
E80A: 
E80C: 
E80E: 
E811: 
E813: 
E815: 
E818: 
E81B: 
E81E: 
E81F: 
E821: 
E823: 
E825: 


98 
2D 


OF OA 


01 
28 
00 DD 
FB 
B5 
00 DD 
OF OA 
OD DD 


12 
0D 
02 
06 


SOAOF 


# $01 
$E836 
$DD00 
# SFB 
* $B5 
$DD00 
SOAOF 
$DD0D 


# $12 
$E830 
# $02 
$E82D 
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GET RS-232 if buffer empty 


Set bit 3 (marker - buffer empty) 
In RS-232 status 

Pass $00 as character read 
Return from subroutine 


Wait for end of RS-232 


Save acc contents on stack 
Get RS-232 NMI flag 

Not set, then OK and continue 
Read RS-232 NMI flag again 
Bit O = send, bit 1 = receive 
Wait for end 

Load acc with $10 

Interrupt via "flag" line 
RS-232 NMI flag 

Set status to "OK" 

Restore acc contents 

Return from subroutine 


NMI routine for RS-232 


Interrupt Control Register (ICR) 
Combine with RS-232 NMI flag 
And store result in X-reg 

Mask bits 1 - 7 and check if 
Send operation is active. no:Skip 
Load acc with data port 

Clear bit 2 (TXD) and pass the 
Bit to send 

Store in data port 

Copy RS-232 NMI flag in acc 
And write again into ICR 
ICR/RS-232 NMI combine acc 


Jsolate bits 1 and 4 


Not set, start byte reception 
Isloate bit 1, call of timer B 
Not set, the start bit 
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E827: 2078 E8 JSR $E878 Process received bit 

E82A: 4C 30 E8 JMP $5830 Start reception of byte 

E82D: 20 A9 E8 JSR $E8A9 Preparation for recept. next byte 
E830: 20 FF E5 JSR SESFF Start reception of byte 

E833: 4C 49 E8 JMP $E849 Return from interrupt 

E836: 8A TXA Store X-reg contents in acc 
E837: 29 02 AND # $02 Data reception? 

E839: FO 06 BEQ $E841 No, the skip processing 
E83B: 20 78 E8 JSR $E878 Process received bit 

E83E: 4C 49 E8 JMP SE849 Return from interrupt 

E841: 8A TXA Restore old X-reg contents 
E842: 29 10 AND # $10 Check if a start bit expected 
E844: FO 03 BEQ $E849 No, then continue 

E846: 20 A9 E8 JSR S$E8A9 Prepare next bit reception 
E849: AD OF OA LDA SO0AOF Load RS-232 NMI flag 
E84C: 8D 0D DD STA _ S$DDOD Copy in ICR of CIA 2 

E84F: 60 RTS Return from subroutine 
KARKKKKKKKKKKKKRARKKKKKEKEKRK KKK KKK Timer constants RS-232 baud 


rate.Table 1 for NTSC version 


E850: Cl 27 (= 10177) 50 Baud 
E852: 3E 1A = 6718) 75 Baud 
E854: C5 11 = 4549) 110 Baud 
E856: 74 OE = 3700) 134.5 Baud 
E858: ED 0C = 3309) 150 Baud 
E85A: 45 06 = 1605) 300 Baud 
E85c: FO 02 = 752) 600 Baud 
E85E: 46 01 = 326) 1200 Baud 
E860: B8 00 = 184) 1800 Baud 
E862: 71 00 = 113) 2400 Baud 


KARR KKK KKK KARR RRR ERK RRR KER ERK Timer constant for RS-232 baud 
rate. Table 2 for PAL version 


E864: 19 26 (= 9753) 50 Baud 
E866: 44 19 (= 6468) 75 Baud 
E868: 1A 11 (= 4378) 110 Baud 
E86A: E8 OD (= 3560) 134.5 Baud 
E86C: 70 0C (= 3184) 150 Baud 
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E86E: 06 06 (= 1542) 300 Baud 

E870: D1 02 = 736) 600 Baud 

E872: 37 01 (= 311) 1200 Baud 

E874: AE 00 = 174) 1800 Baud 

E876: 69 00 (= 105) 2400 Baud 

KARKKKK KKK KER KR RK KKK KKK KK RRR Input NMI routine for RS-232 
E878: AD 01 DD LDA S$DD01 Read data port B of CIA 2 
E87B: 29 01 AND # $01 Isolate bit for receive data 
E87D: 85 A7 STA * SAT And in Z-P RS-232 input bit flag 
E87F: AD 06 DD LDA S$DD06 Get low value of CIA 2 timer B 
E882: E9 28 SBC # $28 And subtract 28 from it 

E884: 6D 16 0A ADC S$O0A16 Add full-bit time baud rate high 
E887: 8D 06 DD STA $DD06 And reset timer B 

E88A: AD 07 DD LDA $DD07 Get high value of CIA 2 timer B 
E88D: 6D 17 0A ADC $0A17 Add full-bit time baudrate high 
E890: 8D 07 DD STA S$DDO7 And reset timer B high 

E893: A9 11 LDA # $11 Write $11 in control register of 
E895: 8D OF DD STA S$DDOF CIA 2 = Start timer B 

E898: AD OF 0A LDA SOAOF Get RS-232 NMI status in acc 
E89B: 8D 0D DD STA $DDOD And set CIA interrupt control reg 
E89E: AQ FF LDA # SFF Initialization value for timer B 
E8A0: 8D 06 DD STA $DD06 Set timer B low to high value 
E8A3: 8D 07 DD STA _ $DDO07 Set timer B high to high value 
E8A6: 4C 9D E6 JMP S$E69D Process received bit 


KKKKKKKKKKKKKKKKKKKKEKKKKEKKKKK NMI routine for RS-232 output 


E8A9: AD 120A LDA $0A12 RS-232 user baud rate in acc 
E8AC: 8D 06 DD STA S$DD06 Ad in timer low of CIA 2 
E8AF: AD 13 0A LDA $0A13 RS-232 user baud rate in acc 
E8B2: 8D 07 DD STA $DDO07 And in timer B high of CIA 2 
E8B5: AQ 11 LDA # $11 Write $11 in control register of 
E8B7: 8D OF DD STA SDDOF CIA 2 = start timer 

E8BA: A9 12 LDA # $12 Invert bits 0, 1 and 4 of RS-232 
E8BC: 4D OF 0A EOR SOAOF NMI flag. This value 

E8BF: 8D OF 0A STA S$O0A0F Back in the NMI flag 

E8C2: A9 FF LDA # SFF Initialization value for timer B 
E8C4: 8D 06 DD STA $DD06 Set timer B low to high value 
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E8C7: 
E8CA: 
E8CD: 
E8CF: 


8D 07 DD 
AE 15 0A 


86 A8 


60 


STA 


LDX $0A15 
STX 


RTS 


$DD07 


* SA8 


KRHEKKKKKKEKKKKKEKKKKKKKKEKKKKEKKKKE 


E8DO0: 
E8D2: 
E8D3: 
E8D6: 
E8D7: 
E8D9: 
E8DB: 
E8DD: 
E8DF: 
E8E1: 
E8E3: 
E8E5: 
E8E7: 
E8E9: 
E8EB: 
E8ED: 
E8EF: 
E8F0: 
E8F2: 
E8F4: 
E8F6: 
E8F9: 
E8FB: 
E8FD: 
E900: 
E901: 
E903: 
E905: 
E907: 
E909: 
E90B: 
E90C: 
E90E: 


A5 
48 
20 
68 
85 
BO 
AO 
Bl 
cg 
FO 
cg 
FO 


93 


F2 


93 
3D 
00 
B2 
05 
34 
01 
08 
03 
04 
04 
El 


9D 
22 
63 
22 
05 
B2 


0 D2 


15 
F6 
Al 
02 
91 


04 
Al 


B9 


F7 


FF 


LDA 
PHA 
JSR 
PLA 
STA 
BCS 


* $93 
SE9QF2 
* $93 


$E918 
# $00 


($B2),¥ 


# $05 
$E917 
# $01 
SE8EF 
# $03 
SE8EF 
# $04 
SE8D0 


* $9D 
$E916 
# $63 
$F722 
# $05 


($B2),¥ 


SFFD2 


# $15 
SE8FB 
* SAL 
# $02 
* $91 


$E912 
* SAl1 
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Set timer B high to high value 
Number of bits to send 

In z-page: Counter RS-232 Bits 
Return from subroutine 


Read program header from tape 


Save load/verify pointer on sys 
Stack via the accumulator 
Routine:read data block tape 
Get load/verify flag from stack 
And back to zero page 

If error occurred, return 

Set displacement to tape buffer 
Get byte of read data block 
Was it and EOT marker? 

Yes, then return 

Header type BASIC program? 
Yes, evaluate correspondingly 
Header type machine lang prg? 
Yes then evaluate appropriately 
Header type for data block? 
No, then read in 

Store header type in X-reg 
Check kernal status flag 

Ctrl messages not allowed, skip 
Displace to "FOUND" message 
Output control message 

Set displace to start of filename 
Read character from tape buffer 
Kernal BSOUT: Output a char 
Increment displace pointer by 1 
Max filename length = 16 char 
Not yet reached, continue 
Middle-value time byte in acc 
Delay loop for 8.5 seconds 
Check z-page stop / C= key flag 
Increment this value by 1 

Key pressed, then continue 
Check the 8.5 second delay loop 
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E910: 
E912: 
E914: 
E916: 
E917: 
E918: 


DO 
co 


FO BA 


18 
88 
60 


F7 
FO 


BNE 
CPY 
BEQ 
CLC 
DEY 
RTS 


$E909 
# SFO 
SE8D0 


KKKKKKKKKKKKKKEKKKKKKKKKKKKKKKE 


E919: 
E91B: 
EQ1E: 
E920: 
E922: 
E923: 
E925: 
E926: 
E928: 
E929: 
E92B: 
E92C: 
E92E: 
E930: 
E932: 
E933: 
E935: 
E937: 
E939: 
E93A: 
E93C: 
E93E: 
E93F: 
E941: 
E943: 
E944: 
E946: 
E948: 
E949: 


85 
20 
90 
A5 
48 
A5 
48 
A5 
48 
A5 
48 
AO 
AQ 
91 
88 
DO 
A5 
91 
c8 
A5 
91 
c8 
A5 
91 
c8 
AS 
91 
c8 
A5 


E9 


* $9E 
$E980 
SEQ7F 
* $C2 
x $Cl1 
* SAF 
* SAE 


# SBF 
# $20 


($B2) ,Y 


$E930 
* $9E 


($B2),Y 


* $Cl 


($B2),Y 


* $C2 


($B2),¥ 


* SAE 


($B2),Y 


* SAF 
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Time not up, continue waiting 
Was the space key pressed? 
Yes, then read header 

Set indicator for OK 

Old stop / C= key flag value 
Return from subroutine 


Write data block on tape 
Write header to tape, header type 
in acc: 3=mach. lang.,1=BASIC 


Put header type in zero page 
Get tape buffer addr.- zero page 
Address invalid, then skip 

Put start address high in acc 
And save on stack 

Put start address low in acc 
And save on stack 

Put end address high into acc 
And save on stack 

Put end address low in acc 

And save on stack 

Get tape buffer length for loop 
Load acc with char for space 
Clear tape buffer 

Loop until the entire length given 
In Y is cleared 

Get the header type 

At 1st position in tape buffer 
Displacement to tape buffer +1 
Get start add low from zero page 
And put it in the tape buffer 
Displacement to tape buffer + 1 
Get start address high from Z-P 
And put it in the tape buffer 
Displacement to tape buffer + 1 
Get end address low from Z-P 
And put it in the tape buffer 
Displacement to tape buffer + 1 
Get end address high from Z-P 
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E94B: 91 B2 STA ($B2),Y¥ And put it in the tape buffer 
E94D: C8 INY Displacement to tape buffer + 1 
E94E: 84 9OF STY * SOF Save displ. in tape buffer 

E950: AO 00 LDY # $00 Clear cntr for length of filename 
E952: 84 9F STY * S9E In zero page 

£954: A4 9E LDY * $9E Get counter for filename length 
E956: C4 B7 CPY * $B7 And compare with actual length 
E958: FO OD BEQ $E967 All letters in buffer, then skip 
E95A: 20 AE F7 JSR S$F7AE Get letters from filename 

E95D: A4 OF LDY * $9F Get displ. to tape buffer 

E95F: 91 B2 STA ($B2),Y Letter of the filename in buffer 
E961: E6 9E INC * S9E Counter for filename length + 1 
E963: E6 9F INC * $9F Displacement to tape buffer + 1 
E965: DO ED BNE S$E954 Loop for next letter 

E967: 20 87 E9 JSR $E987 Start and address of tape buffer 
E96A: AQ 69° LDA # $69 Store check sum data and header 
E96C: 85 AB STA * SAB Block ($69) in zero page 

E96E: 20 1CEA JSR SEAIC Write block to tape 

E971: A8 TAY Save current acc contents 

E972: 68 PLA Get end address high from stack 
E973: 85 AE STA * SAE And place in zero page again 
E975: 68 PLA Get end address low from stack 
E976: 85 AF STA * SAF And store in zero page again 
E978: 68 PLA Get start address high from stack 
E979: 85 Cl STA * $Cl And store in zero page again 
E97B: 68 PLA Get start address low from stack 
E97C: 85 C2 STA * $C2 And store in zero page again 
E97E: 98 TYA Get acc contents back 

E97F: 60 RTS Return from subroutine 

KKK KK KKK KKK KEK EKER KEK EK Get tape buffer address and 


check for validity 


E980: A6 B2 LDX * $B2 Start of tape buffer in X-reg 
E982: A4 B3 LDY * $B3 Start of tape buffer in Y-reg 
E984: CO 02 CPY # $02 Zero page and stack not allowed 


E986: 60 RTS Return from subroutine 


326 


Abacus Software C-128 Internals 





KARKKKK KKK KKK KKK KKK RKKEKRK KKK E Tape end addr = start addr + 192 


E987: 20 80 E9 JSR $E980 Get tape buffer address 

E98A: 8A TXA Start of tape buffer low in acc 
E98B: 85 Cl STA * $Cl And in Z-P I/O start addtess low 
E98D: 18 CLC Clear carry for addition. 

E98E: 69 CO ADC # $co End address=start address + 192 
E990: 85 AE STA * SAE New end address low in Z-P 
E992: 98 TYA Start of tape buffer high in acc 
E993: 85 C2 STA * $C2 and in Z-P I/O start address high 
E995: 69 00 ADC # $00 End addr high=start address hi + 
E997: 85 AF STA * SAF carry, end address high in Z-P 
E999: 60 RTS Return from subroutine 
KKKKKKKHKKKKAKKEKK EKER KKKEKEKEKERK Seach tape header for name 
E99A: 20 D0 E8 JSR $E8DO Search for next tape header 
E99D: BO 1E BCS S$E9BD IF EOT found, then return 
E99F: AO 05 LDY # $05 Displace to name in tape buffer 
EQ9A1: 84 9F STY * SOF Store in zero page 

E9A3: AO 00 LDY # $00 Init. the counter for the length 
E9A5: 84 9E STY * $9E Of the filename in the zero page 
E9A7: C4 B7 CPY * $B7 Compare length of target name 
E9A9: FO 11 BEQ SE9BC If equal, continue evaluation 
E9AB: 20 AE F7 JSR $F7AE Get character of target name 
EQ9AE: A4 9F LDY * $9F Displ. to filenames in tape buffer 
E9BO: D1 B2 CMP ($B2),Y¥ Compare with target character 
E9B2: DO E6 BNE SE99A Not equal, then not found 

E9B4: E6 9E INC * $9E Filename legnth counter +1 
E9B6: E6 9F INC * $9F Filename displ. to tape buffer +1 
E9B8: A4 9E LDY * $9E Filename legnth counter in Y-reg 
E9BA: DO EB BNE $E9A7 Next character comparison 
E9BC: 18 CLC Set indicator for OK 

E9BD: 60 RTS Return from subroutine 
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KKKKKKKKRKKKKKKKEKKKKKKKKKKKKKKR Increment tape buffer pointer 
E9BE: 20 80 E9 JSR $E980 Get the tape buffer address 
E9C1: E6 A6 INC * SA6 Z-P cassette buffer address +1 
E9C3: A4 A6 LDY * S$A6 And compare to 

E9C5: CO CO CPY # $cO Maximum value 192 

E9C7: 60 RTS Return from subroutine 


KKEKKKKKKK KKK KKK KKK KKKKKEKKKKE Wait for button on datasette 


E9C8: 20 DF E9 JSR SEQDF Check if button pressed 

E9CB: FO 1A BEQ S$E9E7 Button pressed, OK & continue 
E9CD: AO 1B LDY # $1B Displ. to "Press Play on Tape" 
E9CF: 20 22 F7 JSR $F722 in Y. Output control message 
E9D2: 20 8F EA JSR SEA8F Test for stop-key interruption 
E9D5: 20 DF E9 JSR SE9DF Check if key pressed 

E9D8: DO F8 BNE SE9D2 No, then to delay loop 

E9DA: AO 6A LDY # S6A Displacement for "OK" message 
E9DC: 4C 22 F7. JMP S$F722 Output control message 


KKK KK KKK KK KK KEK KKK RKEKKK ERR KKK Check if tape button pressed 


E9DF: AQ 10 LDA # $10 Set bit 4 for button test 

E9E1: 24 01 BIT * $01 Check data reg. processor port 
E9E3: DO 02 BNE $SE9E7 Not pressed,then exit 

E9E5: 24 01 BIT * $01 Check again 

E9E7: 18 CLC Yes: zero flag=1, no zero flag=0 
E9E8: 60 RTS Return from subroutine 


KKKKKKKKKKKKKKKKRKKKKKEKKKK RAK Wait for "record & play" keys 


E9E9: 20 DF E9 JSR SEQ9DF Check if tape button is pressed 

E9EC: FO F9 BEQ SE9E7 Button pressed, OK & continue 
E9EE: AO 2E LDY # $2E Displ. to "Press R & P on Tape" 
E9FO: DO DD BNE SE9CF Button delay loop/stop key chck 
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KRKKKKKKKKKKRKKKKKKKKKKKKKKKKKK 


E9F2: 


E9F4: 
E9SF6: 
E9SF8: 


AQ 
85 
85 
20 


00 
90 
93 
87 E9 


LDA 
STA 
STA 
JSR 


# $00 
* $90 
* $93 
$E987 


KKEKKKKKKKKEKRKEKKEKKKKKKKKKKKKKKEKE 


E9FB: 
E9FE: 
EAO0: 
EAO1: 
EA03: 
EAO05: 
EA07: 
EAO9: 
EAOB: 
EAOD: 
EAOF: 
EA11: 
EA13: 


20 
BO 
78 
AQ 
85 
85 
85 
85 
85 
85 
AQ 
A2 
DO 


C8 EY 
1F 


90 
OE 
11 


JSR 
BCS 
SEI 
LDA 
STA 
STA 
STA 


KRHEKKKEKKKEKKKEKKKEKRKEKKKKKRKEKKKKKKEKK 


EAL15: 
EA18: 
EAIA: 


20 
AQ 
85 


87 E9 
14 
AB 


JSR 
LDA 
STA 


$E987 
# $14 
* SAB 


KEKKKKKKKEKKKKKKKEKKKKKEKKKKKKKE 


EAIC: 


EALF: 


EA21: 
EA22: 
EA24: 
EA26: 
EA28: 
EA2B: 
EA2C: 


20 
BO 
78 
AQ 
A2 
AQ 
8C 
88 
8C 


E9 E9 
TA 


82 
08 
00 
1A DO 


19 DO 


JSR 
BCS 
SEI 
LDA 
LDX 
LDY 
STY 
DEY 
STY 


SE9E9 
SEA9B 


# $82 
# $08 
# $00 
$SD01A 


$D019 
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Read data block from tape 


System status with indicator 
Initialize for everything OK 
Clear Load/Verify pointer 

Get tape buffer addr/end address 


Load program from tape 


Wait for button on datasette 
STOP key pressed, return 
Disbale all system interrupts 
Init. value for IRQ storage 
Tape-read mode input byte 


‘storage. Tape temp pointer 


Cassette time constant 

Casettes error pass 1 

Cassette error pass 2 

Tape flag for byte recived 

IRQ on pin "flag" 

Number of IRQ vector (SEAEB) 
Write data block to tape 


Write tape buffer to tape 


Load tape buffer address 
Set length of the WRITE leader 
Store in zero page 


Write data block to tape 


Wait for record & play 

STOP pressed, return 

Disable all system interrupts 
IRQ on underflow of timer B 
Number of IRQ vector ($EE2E) 
Set interrupt mask register CIA 
To #0 (Interrupt disable) 
Decrement Y-reg to $FF and set 
Interrupt Request Register 
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EA2F: 8D 0D DC STA S$DCOD Reset IRQ mask 

EA32: AD OE DC LDA SDCOE Load CIA control reg A, timer B 
EA35: 09 19 ORA # $19 "One shot" and start 

EA37: 8D OF DC STA SDCOF Control reg.B, IRQ on timer B 
EA3A: 29 91 AND # $91 Set time compare pointer for tape 
EA3C: 8D 0B 0A STA S$OA0B Operations 

EA3F: 20 EC E7 JSR _ $ET7EC Wait for end of R-232 transfer 
EA42: AD 11D0 LDA §$D011 Copy VIC control reg. into acc 
EA45: A8 TAY And into Y-reg 

EA46: 29 10 AND # $10 Set bit 4, screen on 

EA48: 8D 39 0A STA $0A39 Store value in VDC temp storage 
EA4B: 98 TYA Old value back into acc 

EA4C: 29 6F AND # S6F Clear bit 8 of raster comparison 
EA4E: 8D 11D0 STA $D011 And turn the screen off 

EA51: 20 74 £5 JSR $E574 Clock to 1 MHz and sprites off 
EA54: AD 1403 LDA $0314 IRQ vector low address in IRQ 
EA57: 8D 09 0A STA S$0A09 Temp storage for tape operations 
EA5A: AD 15 03 LDA $0315 IRQ vector high address in IRQ 
EA5D: 8D 0A OA STA S$OAOA Temp storage for tape operations 
EA60: 20 9B EE JSR SEE9B Reset IRQ vector for tape operat. 
EA63: A9 02 LDA # $02 Number of data blocks to reaed 
EA65: 85 BE STA * SBE Store in zero page 

EA67: 20 5A ED JSR SED5A Initialize bit counter, serial I/O 
EA6A: A5 01 LDA * $01 Turn cass. motor on by setting 
EA6C: 29 1F AND # $1F 4th bit of the processor port data 
EA6E: 85 01 STA * $01 Register 

EA70: 85 CO STA * $CO Set pointer for tape motor 

EA72: A2 FF LDX # $FF Counter for delay loop high 
EA74: AQ FF LDY # SFF Counter for delay loop low 
EA76: 88 DEY X and Y regs are decremented 
EA77: DO FD BNE $EA76 From 65535 to 0 to create the 
EA79: CA DEX Necessary delay 

EA7A: DO F8 BNE SEA74 For tape operations 

EA7C: 58 CLI Enable interrupt for tape I/O 


KKKKKKKKK KKK KKK KEK KKAKKKK KEK EK Wait for tape I/O end 


EA7D: AD 0A 0A LDA SOAOA Compare with tape IRQ vector 
EA80: CD 15 03 CMP $0315 with normal IRQ pointer high 
EA83: 18 CLC Set indicator for OK 
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EFA84: FO 15 BEQ SEA9B IRQ vectors equal, then done 
EA86: 20 8F EA JSR SEA8F Check if STOP key pressed 
EA89: 20 3D F6 JSR $F63D If pressed, set flag 

EA8C: 4C 7D EA JUMP SEAT7D Continue to wait for end 


KKRKKKKKKKKKRKKKKKKKKERKKK KK KKK Test for STOP key 


EA8F: 20 El FF JSR $FFE1 Kernal STOP: Test for stop key 
EA92: 18 CLC Set indicator for everything OK 
EA93: DO 0B BNE SEAAO STOP not pressed, RTS exit 
BA95: 2057 EE JSR  $EE57 Motor off, set normal IRQ 

EA98: 38 SEC Set carry for error 

EA99: 68 PLA Get return address form stack 
EAQA: 68 PLA And clear 

EA9B: A9 00 LDA # $00 Load code for "interrupt" in acc 
EA9D: 8D 0A 0A STA SOAOA And set indicator for normal IRQ 
EAAO: 60 RTS Return from subroutine 


KKKKKKKKKKKK KKK KKK KKEKKKREKKKRKK Prepare cassette synchronization 


EAA1: 86 Bl SsTX * SB1 Store X-reg contents in Z-P 
EAA3: A5 BO LDA * $BO Timing constant for tape in acc 
EAA5: OA ASL A The timing constant is multiplied 
EAA6: OA ASL A By the factor 4 

EAA7: 18 CLC Clear carry for addition 

EAA8: 65 BO ADC * $BO0 Add timing constant (corres. *5) 
EAAA: 18 CLC Clear carry for addition 

EAAB: 65 Bl ADC * $B1 Add old X-reg contents & place 
EAAD: 85 Bl STA * $B1 This value in the zero page 
EAAF: A9 00 LDA # $00 Load low value for timer A 
EAB1: 24 BO BIT * $BO Check if timing constant >128 
EAB3: 30 01 BMI SEAB6 Yes, then skip alignment 

EAB5: 2A ROL A The inti value for timer A is 
EAB6: 06 Bl ASL * $B1 Multiplied by 4 by rotating the 
EAB8: 2A ROL A Contents of the acc in connection 
EAB9: 06 Bl ASL * $Bl With shifting of tape timing 
EABB: 2A ROL A constant 

EABC: AA TAX Store high of timer value in X 
EABD: AD 06 DC LDA S$DCO06 Low value CIA 1 timer B in acc 
EACO: C9 16 CMP # $16 Change timer B high to 63755 
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EAC2: 90 F9 BCC $EABD Yes, then loop to timer read 
EAC4: 65 Bl ADC * $B1 Add low for initialization 

EAC6: 8D 04 DC STA $Dc04 And set in timer A low 

EAC9: 8A TXA Add high value of the init in acc 
EACA: 6D 07 DC ADC $DCO07 With carry to timer B high 
EACD: 8D 05 DC STA $DC05 And set in timer A high 

EADO: AD 0B 0A LDA SQA0B Copy init. value from tape time 
EAD3: 8D 0E DC STA S$DCOE Constant to start timer A 

EAD6: 8D 0D 0A STA $0A0D_ Reset timer A flag 

EAD9: AD 0D DC LDA S$DCOD Interrupt Control Register in acc 
EADC: 29 10 AND # $10 Check negative edge on FLAG 
EADE: FO 09 BEQ S$EAEQ No, wait for negative edge 
EAEO: AQ EBA LDA # SEA Place the contents of zero page 
EAE2: 48 PHA Locations $EA and $E9 on the 
EAE3: AQ EQ LDA # $E9 Sys stack as quasi return address 
EAE5: 48 PHA 

EAE6: 4C C8 EE JMP SEEC8 Simulate the interrupt call 

EAE9: 58 CLI Enable all system interrupts 
EAEA: 60 RTS Return from subroutine 


KKKKKKKKKKKKKKKKKKKKKKKEKEKKK KKK Interrupt routine for tape read 


EAEB: AE 07 DC LDX §$DCO07 CIA 1 timer B hi in X-reg 
EAEE: AO FF LDY # $FF Init Y-reg with with high value 
EAFO: 98 TYA And for subtraction in acc 
EAF1: ED 06 DC SBC $DC06 Subtract timer B low of #255 
EAF4: EC 07 DC CPX S$DCO7 Is timer B high decremented? 
EAF7: DO F2 BNE SEAEB Yes, back to time comparison 
EAF9: 86 Bl STX * SB1 Place timer B high in zero page 
EAFB: AA TAX Time low since last signal in X 
EAFC: 8C 06 DC STY S$DC06 Timer B low to high value 
EAFF: 8C 07 DC STY $DCO07 Timer B high to high value 
EBO2: AQ 19 LDA # $19 Set timer B mode 

EB04: 8D OF DC STA $DCOF And start timer B 

EBO7: AD 0D DC LDA S$DCOD Interrupt Control Register in acc 
EBOA: 8D 0C 0A STA SO0A0C And in systetm storage for tape 
EBOD: 98 TYA Initialize acc with #255 

EBOE: E5 Bl SBC * $Bl Subtract timer B high from #255 
EB10: 86 Bl STX * $Bl Store elapsed time in zero page 
EB12: 4A LSR A The value stored in the acc 
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EB13: 66 Bl ROR # $Bl For the elapsed time 

EB15: 4A LSR A Is divided by the 

EB16: 66 Bl ROR # $Bl Factor 4 

EB18: A5 BO LDA * $BO Get timing constant from z-page 
EB1A: 18 CLC Clear carry for addition 

EB1B: 69 3C ADC # $3C Add #60 to timing constant 
EB1D: C5 Bl CMP * $Bl > time since last signal? 

EB1F: BO 4A BCS S$EB6B Yes, then no information, skip 
EB21: A6 9C LDX * $9C Was a byte received 

EB23: FO 03 BEQ $EB28 No, then skip 

EB25: 4C 1F EC JMP S$ECIF Continue byte-receive routine 
EB28: A6 A3 LDX * $A3 Was byte read entirely? 

EB2A: 30 1B BMI $EB47 Yes, then evaluate 

EB2C: A2 00 LDX # $00 Code for short pulse X-reg (0) 
EB2E: 69 30 ADC # $30 Set acc for pulse read 

EB30: 65 BO ADC * $BO And add timing constant 

EB32: C5 Bl CMP * $B1 Short time pulse received? 
EB34: BO 1C BCS $EB52 Yes, then skip long pulse 
EB36: E8 INX Code for long pule in X-reg (1) 
EB37: 69 26 ADC # $26 Set acc for pulse read 

EB39: 65 BO ADC * $BO0 And add timing constant 

EB3B: C5 Bl CMP * $B1 Long time pulse received? 
EB3D: BO 17 BCS S$EB56 Yes, skip other pulse duration 
EB3F: 69 2C ADC # $2C Check if the previous time 
EB41: 65 BO ADC * $BO Pulse was stil longer. If so, 
EB43: C5 Bl CMP * $B1 It is a byte header pulse 

EB45: 90 03 BCC SEB4A No, then skip processing 
EB47: 4C CF EB JMP SEBCF Process received byte 

EB4A: A5 B4 LDA * $B4 Check if timer A is enables 
EB4c: FO 1D BEQ SEB6B No, then skip 

EB4E: 85 A8 STA * SA8 Set pointer for "READ ERROR" 
EB50: DO 19 BNE $EB6B Jump to timer interrupt read 
EB52: E6 A9 INC * SA9 Pntr for pulse-length change +1 
EB54: BO 02 BCS SEB58 Skip change decrement 

EB56: C6 AQ DEC * SA9 Pntr for pulse length change -1 
EB58: 38 SEC Set carry for subtraction 

EB59: E9 13 SBC # $13 From read value #19, as well as 
EB5B: E5 Bl SBC * $Bl Subtract elapsed time 

EB5D: 65 92 ADC * $92 Add zero page storage for timing 
EBSF: 85 92 STA * $92 Correction flag and store 
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EB61: A5 A4 LDA * SA4 Invert the zero page flag for the 
EB63: 49 01 EOR # $01 Reception of both pulses 

EB65: 85 A4 STA * SA4 And store in zero page again 
EB67: FO 2B BEQ S$EB94 Both pulses received, then skip 
EB69: 86 C5 STX * $C5 Store signal received in z-page 
EB6B: A5 B4 LDA * $B4 Check if timer A is enabled 
EB6D: FO 22 BEQ $EB91 No, then terminate interrupt 
EB6F: AD 0C OA LDA S0A0c Get contents of ICR in acc 
EB72: 29 01 AND # $01 Was it a timer A interrupt 
EB74: DO 05 BNE $EB7B Yes, then skip 

EB76: AD 0D 0A LDA S0A0D Check if timer A is run down 
EB79: DO 16 BNE SEB91 No, then terminate interrupt 
EB7B: A9 00 LDA # $00 Clear the zero-page flag for 
EB7D: 85 A4 STA * SA4 Pulse count (low value) 

EB7F: 8D 0D 0A STA $0A0D Set pointer for timer A timeout 
EB82: A5 A3 LDA * $A3 Check is byte is completely read 
EB84: 10 30 BPL SEBB6 No, then skip 

EB86: 30 BF BMI $EB47 Yes, process correspondingly 
EB88: A2 A6 LDX # $A6 Initialization value for timer A 
EB8A: 20 Al EA JSR S$EAA1 Prepare tape for reading 

EB8D: A5 9B LDA * $9B Zero-page parity byte in acc 
EB8F: DO B9 BNE SEB4A Not zero, then parity error 
EB91: 4C 33 FF JMP $FF33 Back to kernal interrupt 

EB94: A5 92 LDA * $92 Timing correction pointer in acc 
EB96: FO 07 BEQ SEBOF Flag cleared, then skip 

EB98: 30 03 BMI $EB9D Smaller then zero, skip dec 
EB9A: C6 BO DEC * $BO Z-page timing constant -1 
EB9C: 2c .Byte $2C Skip to $EB9F 

EB9D: E6 BO INC * $D0 Z-page timing constant +1 
EB9F: A9 00 LDA # $00 Z-page pointer timing constant 
EBA1: 85 92 STA * $92 Erase correction (low value) 
EBA3: E4 C5 CPX * $C5 Compare pulse received with 
EBA5: DO OF BNE SEBB6 previous Not equal, OK & skip 
EBA7: 8A TXA Check if short pulse received 
EBA8: DO AO BNE S$EB4A No, then read error. Skip 
EBAA: A5 AQ LDA * SA9 Pulse length change pntr in acc 
EBAC: 30 BD BMI SEB6B Negative value, then skip 
EBAE: C9 10 CMP # $10 16 short pulses received? 
EBBO: 90 B9 BCC SEB6B No, then for negative value 
EBB2: 85 96 STA * $96 Yes, EOB flag received 
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EBB4: BO B5 BCS SEB6B Unconditional jump 

EBB6: 8A TXA Put received bit in acc 

EBB7: 45 9B EOR * $9B Compare witb tape parity 

EBB9: 85 9B STA * $9B Store in tape parity again 

EBBB: A5 B4 LDA * $B4 Check if timer A is enabled 
EBBD: FO D2 BEQ $EB91 No, then end interrupt 

EBBF: C6 A3 DEC * $A3 Zero-page storage for bit cntr -1 
EBC1: 30 C5 BMI SEB88 Parity bit received? Yes, skip 
EBC3: 46 C5 LSR * $C5 No, then bit read into 

EBC5: 66 BF ROR # SBF Zero-page storage for tape data 
EBC7: A2 DA LDX # SDA Initialization value for timer A 
EBC9: 20 Al EA JSR $EAA1 Prepare cassette synchronization 
EBCC: 4C 33 FF JMP $FF33 Back to IRQ routine 

EBCF: A5 96 LDA * $96 Check if EOB received 

EBD1: FO 04 BEQ SEBD7 No, skip timer read 

EBD3: A5 B4 LDA * $B4 Check if timer A enabled 

EBD5: FO 07 BEQ SEBDE No, skip bit counter test 

EBD7: A5 A3 LDA * $A3 Check if Z-P bit cntr is negative 
EBD9: 30 03 BMI SEBDE Yes, wait for byte header 

EBDB: 4C 56 EB JMP SEB56 Process long pulse,no header 
EBDE: 46 Bl LSR * $Bl byte. Halve the elapsed time 
EBEO: A9 93 LDA # $93 since the last negativce edge and 
EBE2: 38 SEC Subtract this value 

EBE3: E5 Bl sBC * $Bl From the constant #147 

EBE5: 65 BO ADC * $BO Add zero-page timing constant 
EBE7: OA ASL A And double this value 

EBE8: AA TAX To X-reg, init value for timer A 
EBE9: 20 Al EA JSR $EAA1 Prepare cassette synchronization 
EBEC: E6 9C Inc * $9c °° Set Z-P pointer:"byte received" 
EBEE: A5 B4 LDA * $B4 Check if timer A enabled 

EBFO: DO 11 BNE $ECO03 Yes, then skip 

EBF2: A5 96 LDA * $96 Check if EOB received 

EBF4: FO 26 BEQ SECI1C No, to normal IRQ routine 
EBF6: 85 A8 STA * SA8 Set z-page display for read error 
EBF8: A9 00 LDA # $00 Clear z-page storage for EOB 
EBFA: 85 96 STA * $96 marker. (low value) 

EBFC: A9 81 LDA # $81 Code value for timer A enable 
EBFE: 8D 0D DC STA _ $DCOD Enable interrupt for timer A 
ECO1: 85 B4 STA * SB4 Set z-page flag, timer A possible 
ECO3: A5 96 LDA * $96 Copy z-page for received EOB 
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ECO5: 85 B5 STA * SB5 In flag for valid EOB 


ECO7: FO 09 BEQ $EC12 No EOB marker, then skip 
ECO9: AQ 00 LDA # $00 Control code for timer A disable 
ECOB: 85 B4 STA * $B4 Put in appropriate z-page pointer 
ECOD: A9 01 LDA # $01 Control code, disabling timer A 
ECOF: 8D 0D DC STA _ S$DCOD Interrupts in CIA control register 
EC12: A5 BF LDA * SBF Z-page shift register, READ in 
EC14: 85 BD STA * SBD Z-page storage for read byte 
EC16: A5 A8 LDA * $A8 Combine Z-P pointer for read 
EC18: 05 a9 ORA * SA9 error with pulse change pointer 
EC1A: 85 B6 STA * $B6 Place in error code of byte 

EClc: 4C 33 FF JMP S$FF33 Back to normal IRQ call 

EC1IF: 20 5A ED JSR S$SED5A Set bit counter for serial output 
EC22: 85 9C STA * $9C Pointer: reset "byte received" 
EC24: A2 DA LDX # $DA Initialization value for timer A 
EC26: 20 Al EA JSR $EAA1 Prepare cassette synchronization 
EC29: A5 BE LDA * SBE Check if number of remaining 
EC2B: FO 02 BEQ SEC2F blocks is zero. If so, skip 

EC2D: 85 A7 STA * SAT Reset number of blocks to read 
EC2F: A9 OF LDA # SOF Mask value for count before read 
EC31: 24 AA BIT * SAA Test pointer, reading from tape 
EC33: 10 17 BPL $EC4C If all characters received, end 
EC35: A5 BS LDA * $B5 Test if valid EOB received 
EC37: DO 0C BNE SEC45 Yes, then skip 

EC39: A6 BE LDX * SBE Is the number of blocks 

EC3B: CA DEX remaining to be read = 1? 

EC3C: DO 0B BNE $EC49 No, to normal IRQ call 

EC3E: A9 08 LDA # $08 Set bit 3 in A for "long block" 
EC40: 2057 F7 JSR $F757 Reset system status pointer 
EC43: DO 04 BNE SEC49 Uncond. jump normal IRQ rout 
EC45: A9 00 LDA # $00 Z-P pointer, "reading from tape" 
EC47: 85 AA STA * SAA Set to "scan" (low value) 

EC49: 4C 33 FF JUMP SFF33 Back to normal IRQ routine 
EC4c: 70 31 BVS SEC7F Skip for tape read pointer "read" 
EC4E: DO 18 BNE SEC68 Skip for tape read pointer"count" 
EC50: A5 BS LDA * $B5 Check if EOB received 

EC52: DO F5 BNE $EC49 Yes, back to normal IRQ routine 
EC54: AS B6 LDA * $B6 Test if byte-read error occurred 
EC56: DO Fl BNE $EC49 Yes, back to normal IRQ routine 
EC58: AS A7 LDA * $A7 Get number of blocks to read yet 
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EC5A: 4A LSR A And shift bit 0 into carry flag 
EC5B: A5 BD LDA * $BD Get read byte from zero page 
EC5D: 30 03 BMI $EC62 If it is a count byte, then skip 
EC5F: 90 18 BCC $EC79 More than one block read, skip 
EC61: 18 CLC Reset carry flag pointer 

EC62: BO 15 BCS $EC79 Skip if only one block read 
EC64: 29 OF AND # SOF Mask out upper nibble (bits 4-7) 
EC66: 85 AA STA * SAA Store as count value, counter -1 
EC68: C6 AA DEC * SAA And check if all syne bytes 
EC6A: DO DD BNE SEC49 received .No, to normal IRQ 
EC6C: AQ 40 LDA # $40 Setbit 6 in the acc and the z-page 
EC6E: 85 AA STA * SAA Tape read pointer to: "read" 
EC70: 20 51 ED JSR S$ED51 Copy input/output start address 
EC73: A9 00 LDA # $00 Clear zero page pointer for read 
EC75: 85 AB STA * SAB Checksum (set to low value) 
EC77: FO DO BEQ $EC49 Back to normal IRQ routine 
EC79: AQ 80 LDA # $80 Set bit 7 in acc and the zero page 
EC7B: 85 AA STA * SAA Tape read pointer to: "end" 
EC7D: DO CA BNE SEC49 Back to normal IRQ routine 
EC7F: A5 BS LDA * $B5 Check if EOB marker set 

EC81: FO OA BEQ $EC8D No, then skip 

EC83: A9 04 LDA # $04 Set bit 2 in A for short block 
EC85: 2057 F7 JSR $F757 Reset system status pointer 
EC88: A9 00 LDA # $00 Code for read pointer to "scan" 
EC8A: 4C 0C ED JUMP S$EDOC Set and jump absolute 

EC8D: 20 B7 EE JSR  $EEB7 Check if end reached 

EC90: 90 03 BCC $EC95 No, then continue as normal 
EC92: 4C OA ED JUMP SEDOA To read end for a block 

EC95: A6 A7 LDX * $A7 Is the number of blocks left to 
EC97: CA DEX Read = 1? 

EC98: FO 2E BEQ $ECC8 Yes, pass 2 (correction pass) 
EC9A: A5 93 LDA * $93 Test if verify marker set 

EC9C: FO OD BEQ S$ECAB No, then skip 

EC9E: AO 00 LDY # $00 Set displacment comparison, #0 
ECAO: 20 CC F7 JSR = $F7CC Fetch routine for LSV calls 
ECA3: C5 BD CMP * SBD Compare with byte read 

ECA5: FO 04 BEQ SECAB Both equal, then OK and skip 
ECA7: AQ 01 LDA # $01 Code for character read error 
ECA9: 85 B6 STA * $B6 In zero page tape temp pointer 
ECAB: A5 B6 LDA * $B6 Test tape temp pointer for error 
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ECAD: 
ECAF: 
ECB1: 
ECB3: 
ECB5: 
ECB7: 
ECB9: 
ECBC: 
ECBE: 
ECC1: 
ECC2: 
ECC3: 
ECC5: 
ECC8: 
ECCA: 
ECCC: 
ECCE: 
ECDO: 
ECD3: 
ECD5: 
ECD7: 
ECDA: 
ECDC: 
ECDE: 
ECEO: 
ECE2: 
ECE4: 
ECE6: 
ECE9: 
ECEB: 
ECED: 
ECEE: 
ECFO: 
ECF2: 
ECF 4: 
ECF6: 
ECF9: 
ECFB: 
ECFD: 
ECFF: 


FO 
A2 
B4 
90 
A6 
A5 
9D 
AS 
9D 
E8 
E8 
86 
4c 
A6 
E4 
FO 
A5 
DD 
DO 
A5 
DD 
DO 
E6 
E6 
A5 
FO 
AO 
20 
cS 
FO 
C8 
84 
A5 
FO 
Ag 
20 
DO 
A5 
DO 
A8 


01 


01 


EC 


01 


01 


F7 


F7 


SECFB 
# $3D 
* $9E 
SECF4 
* $9E 
* SAD 


$0101,X 


* SAC 


$0100,X 


* $9E 
SECFB 
* SOF 
* SOE 
SEDO5 
* SAC 


$0100,X 


SEDO05 
* SAD 


$0101,X 


SEDO5 
* $9OF 
* $9OF 
* $93 
SECFO 
# $00 
SF7CC 
* SBD 
SEDO05 


* SB6 
* SBE 
SECFB 
# $10 
$F757 
SED05 
* $93 
SEDO5 
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No error occurred, then skip 
Check if 31 errors encountered 
While reading 

Yes, then not correctable 

Displ. for add read error in stack 
Get address byte of error low 
And store error address on stack 
Get address byte of error high 
And store error address on stack. 
Increment error addr-displ. ptr + 
Error number-counter by 2 

And place in error counter 
Continue as if no error occurred 
Check if all read errors 
Corrected 

Yes, then continue 

Get current addr. byte low value 
Compare w/ error addr byte low 
Not equal, then skip 

Get current addr byte high value 
Compare with address byte high 
Not equal, then skip 

Increment the z-page correction 
counter for pass 2 by 2 

Check if verify marker set 

No, then set 
Displacement for fetch routine 
Fetch routien for LSV calls 
Read byte equal memory byte? 
Yes, then skip 

Incremern displacement pointer 
And put in z-page error pointer 
Check if error occurred 

No, then skip 

Set bit 4 -read error not corrected 
Reset system status pointer 
Unconditional jump 

Check if verify marker set 

Yes, then skip 

Set displacement pointer to #0 
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ED00: A5 BD LDA * $BD Get byte into acc 

ED02: 20 BC F7 JSR $F7BC STASH rout. for LSV routines 
ED05: 20 Cl EE JSR S$EEC1 Incr input/output start address 
ED08: DO 44 BNE SED4E Back to normal IRQ routine 
EDOA: AQ 80 LDA # $80 Code for read pointer to "end" 
EDOC: 85 AA STA * SAA Set tape read pntr according, acc 
EDOE: 78 SEI Disable all system interrupts 
EDOF: A2 01 LDX # $01 Code, value for int. of timer A 
ED11: 8E 0D DC SsTX §$DCOD Disable in ICR 

ED14: AE 0D DC LDX §$DCOD Reset interrupt pointer 

ED17: A6 BE LDX * SBE Test if number of blocks 

ED19: CA DEX remaining to process is zero 
ED1A: 30 02 BMI $ED1E Yes, then skip 

ED1C: 86 BE STX * SBE Store new number in zero page 
ED1E: C6 A7 DEC * S$A7 Decrement z-page block counter 
ED20: FO 08 BEQ SED2A Block counter = 0, then skip 
ED22: A5 9E LDA * $9E Check if error encountered in 
ED24: DO 28 BNE SED4E pass 1. Yes, then skip 

ED26: 85 BE STA * SBE Number of blocks to process: 0 
ED28: FO 24 BEQ SED4E Back to normal IRQ routine 
ED2A: 20 57 EE JSR $EE57 Routine: end tape I/O 

ED2D: 20 51 ED JSR SED51 Copy start addr in load pointer 
ED30: AO 00 LDY # $00 Clear the z-page ptr for chksum 
ED32: 84 AB STY * SAB Set displacement to zero 

ED34: 20 CC F7 JSR $F7CC FETCH routine for LSV operat. 
ED37: 45 AB EOR * SAB Combine memory byte with 
ED39: 85 AB STA * SAB chksum & store in chksum pntr 
ED3B: 20 Cl EE JSR SEEC1 Increment input/output start addr 
ED3E: 20 B7 EE JSR $EEB7 Check if end address reached 
ED41: 90 Fl BCC $ED34 Not end address, then continue 
ED43: A5 AB LDA * SAB Compare the generate checksum 
ED45: 45 BD EOR * SBD With the checksum read 

ED47: FO 05 BEQ SED4E Equal, then OK and continue 
ED49: A9 20 LDA # $20 Set bit 5 (checksum error) 
ED4B: 2057 F7 JSR $F757 Reset system status pointer 
ED4E: 4C 33 FF JMP SFF33 Back to normal IRQ routine 
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KAKKKKKKKKKKKKKKKRKKKKK KKK KAKA KA Copy input/output start address 


ED51: A5 C2 LDA * $C2 Get input/output 

ED53: 85 AD STA * SAD Store high value in z-page $AD 
ED55: A5 Cl LDA * $Cl Get input/output start addr low 
ED57: 85 AC STA * SAC Store low value in z-page $AC 
ED59: 60 RTS Return from subroutine 
KRKKKEKKKEKK KARE KAR KKK ERK RKREKKEE Set bit counter for serial output 
ED5A: A9 08 LDA # $08 Counter for 8 bits to transfer 
ED5C: 85 A3 STA * $A3 Initialize in zero page 

ED5E: A9 00 LDA # $00 Set the high byte of the 2 byte 
ED60: 85 A4 STA * SA4 Zero page counter to $00 

ED62: 85 A8 STA * SA8 Clear tape read error flag 

ED64: 85 9B STA * $9B Initialize parity for tape 

ED66: 85 AQ STA * SA9 Initialize tape zero read flag 
ED68: 60 RTS Return from subroutine 

KKK KKK KKK KKK KKK KKK K RRR KK ERK Write a bit to tape 

ED69: A5 BD LDA * $BD Bit to output from z-page to acc 
ED6B: 4A LSR A And bit to output (0) in carry 
ED6C: A9 60 LDA # $60 Set time for "0-bit" 

ED6E: 90 02 BCC $ED72 Set timer and output 

ED70: A9 BO LDA # $BO Set time for "1-bit" 

ED72: A2 00 LDX # $00 Low value for timer high byte 
ED74: 8D 06 DC STA $DC06 CIA1 timer B low byte -bit time 
ED77: 8E 07 DC STX $DCO7 CIA1 timer B hi-byte low value 
ED7A: AD 0D DC LDA §$DCOD Clear interrupt flag 

ED7D: A9 19 LDA # $19 Load timer B, "one shot" & start 
ED7F: 8D OF DC STA SDCOF CIA control reg. IRQ at timer 
ED82: A5 01 LDA * $01 Inverse value for output bit 
ED84: 49 08 EOR # $08 Invert in processor port and 
ED86: 85 01 STA * $01 Put back in processor port 
ED88: 29 08 AND # $08 Save current signal 

ED8A: 60 RTS Return from subroutine 
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KKKKKKKKEK KKK RREK ERE ER ERKEKK KKK Set pointer for block written 
ED8B: 38 SEC Set carry for rotation 

ED8C: 66 B6 ROR * $B6 Negate block written flag 
ED8E: 30 3c BMI SEDCC Interrupt return 


KKK KKK KKK KK KEKE KEKE RK KEKE KEKE Interrupt routine for tape write 


ED90: A5 A8 LDA * $A8 Check if byte pulse written 
ED92: DO 12 BNE $EDA6 Yes then skip byte pulse write 
ED94: A9 10 LDA # $10 Low value for byte freq in acc 
ED96: A2 01 LDX # $01 High value for byte freq in X 
ED98: 2074 ED JSR S$ED74 Write "byte" pulse to tape 
ED9B: DO 2F BNE SEDCC If first half wave, to normal IRQ 
ED9D: E6 A8 INC * SA8 Set pointer for pulse written 
ED9F: A5 B6 LDA * SB6 Test "block written" pointer 
EDAl: 10 29 BPL S$EDCC Yes, then back to normal IRQ 
EDA3: 4C 1B EE JUMP SEE1B Block finished, continue write 
EDA6: A5 A9 LDA * SA9 Check if longer pulse written 
EDA8: DO 09 BNE $EDB3 Yes, then skip long pulse 
EDAA: 20 70 ED JSR _ $ED70 Write long pulse to tape 

EDAD: DO 1D BNE SEDCC If first half wave, to normal IRQ 
EDAF: E6 AQ INC * SAQ Set pointer for pulse written 
EDB1: DO 19 BNE $SEDCC Back to normal IRQ routine 
EDB3: 20 69 ED JSR  SED69 Write one bit to tape 

EDB6: DO 14 BNE S$EDCC If first half wave, to normal IRQ 
EDB8: A5 A4 LDA * SA4 Invert the zero-page bit pulse 
EDBA: 49 01 EOR # $01 Pointer and 

EDBC: 85 A4 STA * $A4 Save it again 

EDBE: FO OF BEQ SEDCF If #0, write both pulses 

EDCO: A5 BD LDA * SBD Invert bit 0 of the zero-page bit 
EDC2: 49 01 EOR # $01 Shift storage 

EDC4: 85 BD STA * SBD And save again 

EDC6: 29 01 AND # $01 Eliminate current bit & combine 
EDC8: 45 9B EOR * $9B With parity bit of the byte 
EDCA: 85 9B STA * $9B And store in parity flag 

EDCC: 4C 33 FF JMP SFF33 Back to normal IRQ routine 
EDCF: 46 BD LSR * $BD Shift bit out and decrement the 
EDD1: C6 A3 DEC * $A3 Zero-page bit counter by 1 
EDD3: A5 A3 LDA * S$A3 Is end reached already? 
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EDD5: FO 3B BEQ $EE12 Yes, then generate parity. Skip 
EDD7: 10 F3 BPL $EDCC No, then back to normal IRQ 
EDD9: 20 5A ED JSR SED5A Set bit counter for serial output 
EDDC: 58 CLI Enable all system interrupts 
EDDD: A5 A5 LDA * $A5 Check if sync bytes written 
EDDF: FO 12 BEQ S$EDF3 Yes, then skip 

EDE1: A2 00 LDX # $00 Clear the checksum storage for 
EDE3: 86 C5 STX * $C5 the read buffer (low value) 
EDE5: C6 A5 DEC * $A5 Decremernt sync counter by 1 
EDE7: A6 BE LDX * SBE Check if the first block 

EDE9: EO 02 CPX # $02 Is already written 

EDEB: DO 02 BNE SEDEF No, then skip 

EDED: 09 80 ORA # $80 Set bit 7 in sync byte 

EDEF: 85 BD STA * SBD And in zero page bit shift storage 
EDF1: DO D9 BNE $SEDCC Back to normal IRQ routine 
EDF3: 20 B7 EE JSR $EEB7 Check if end address reached 
EDF6: 90 OA BCC SEE02 Not reached, continue write 
EDF8: DO 91 BNE $ED8B Set "block written" pointer 
EDFA: E6 AD INC * SAD Current address byte +1 

EDFC: A5 C5 LDA * $C5 Get buffer checksum from Z-P 
EDFE: 85 BD STA * SBD Store value in bit shift storage 
EEOO: BO CA BCS S$EDCC Back to normal IRQ routine 
EE02: AO 00 LDY # $00 Set displacement pointer to #0 
EEQ4: 20 CC F7 JSR $F7CC FETCH routine for LSV operat. 
EEO7: 85 BD STA * SBD Bring char in bit shift storage 
EEO9: 45 C5 EOR * $C5 Combine with checksum storage 
EEOB: 85 C5 STA * $C5 And store again 

EEOD: 20 Cl EE JSR SEEC1 Incr input/output start address 
EE10: DO BA BNE S$EDCC Back to normal IRQ routine 
EE12: A5 9B LDA * $9B Invert parity bit of byte from 
EE14: 49 01 EOR # $01 Z-P and copy into the bit-shift 
EE16: 85 BD STA * $BD Storage 

EE18: 4C 33 FF JMP $FF33 Back to the normal IRQ routine 
EE1B: C6 BE DEC * SBE Check if all bits written 

EE1D: DO 03 BNE $EE22 No, then skip 

EE1IF: 20 BO EE JSR  SEEBO Turn recorder motor off 

EE22: A9 50 LDA # $50 Initialize zero-page counter for 
EE24: 85 A7 STA * $AT7 The "shorts" 

EE26: A2 08 LDX # $08 Displacement for IRQ #1 (write) 
EE28: 78 SEI Disable all system interrupts 
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EE29: 
EE2C: 


20 9B EE 
DO EA 


JSR SEE9B 
BNE $EE18 


KREKKKKKKEKKKKEKKEKKEKKKKKKKKKKKKKK 


EE2E: A9 78 LDA # $78 
EE30: 20 72 ED JSR $ED72 
EE33: DO E3 BNE S$EE18 
EE35: C6 A7 DEC * SA7 
EE37: DO DF BNE SEE18 
EE39: 20 5A ED JSR SED5A 
EE3C: C6 AB DEC * SAB 
EE3E: 10 D8 BPL SEE18 
EE40: A2 OA LDX # SOA 
EE42: 20 9B EE JSR SEE9B 
EE45: 58 CLI 

EE46: E6 AB INC * SAB 
EE48: A5 BE LDA * SBE 
EE4A: FO 49 BEQ SEE95 
EE4C: 20 51 ED JSR S$ED51 
EE4F: A2 09 LDX # $09 
BE51: 86 A5 STX * SA5 
EE53: 86 B6 STX * SB6 
EE55: DO 82 BNE SEDD9 


KRKKKKKKKEKKKKKKEKKEKKEKKEKKKKKKKEKK 


EE57: 08 PHP 

BE58: 78 SEI 

EE59: AD 11 DO LDA $D011 
EE5C: OD 39 OA ORA $0A39 
EE5SF: 29 7F AND # S7F 
EE61: 8D 11 DO STA $pD011 
EE64: 2C 3A OA BIT SQ0A3A 
EE67: 30 16 BMI SEE7F 
EE69: 2C 37 OA BIT $0A37 
BE6C: 10 11 BPL SEE7F 
EE6E: AD 38 OA LDA $0A38 
EE71: 8D 15 DO STA $D015 
EE74: AD 37 OA LDA $0A37 
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Set the IRQ vectors 
Back to the normal IRQ routine 


Write the header (IRQ #1) 


Code for "header pulse" in acc 
And write header pulse 

If first half wave, to normal IRQ 
Decrement header counter by 1 
No end, to normal IRQ routine 
Set bit counter for serial output 
Dur. of short before & after data 
No end, to normal IRQ routine 
Displacement for IRQ #2 (write) 
Set the IRQ vector 

Enable all system interrupts 
Decrement duration of shorts 
Check if all blocks written 

Yes, then skip 

Copy input/output end address 
Reset the zero-page counter for 
the Sync with #9 and reset the 
"block written" pointer 
Unconditional jump 


End recorder operation 


Save processor status on stack 
Disable all system interrupts 
Contents of VIC control reg in A 
Combine with VDC temp pointer 
Turn screen off 

And write value in VIC reg 
Check IRQ storage 

Bit 7 set, then skip 

Check clock frequency storage 
Bit 7 cleared, then no update 
Get status for sprites 

And set sprite display register 
Get saved clock frequency and 
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EE77: 8D 30 DO STA §$D030 Set system back to old value 
EE7A: A9 00 LDA # $00 Clear storage for 

EE7C: 8D 37 0A STA $0A37 System clock frequency 

EE7F: 20 BO EE JSR _ $EEBO Turn cassette motor off 

EE82: 20 B8 El JSR $E1B8 Set timing and CIAs to standard 
EE85: AD 0A OA LDA S$O0A0A Is interrupt vector to standard? 
EE88: FO 09 BEQ S$EE93 Yes, then exit 

EE8A: 8D 15 03 STA $0315 Sys IRQ vector high to standard 
EE8D: AD 09 0A LDA $0A09 Get IRQ address low 

EE90: 8D 1403 STA $0314 Sys IRQ vector low to standard 
EE93: 28 PLP Get processor status back 
EE94: 60 RTS Return from subroutine 


KAKKKKKKK KKK KK KKK KKKKK KK KKK KKK Terminate tape operation 


EE95: 2057 EE JSR $EE57 End recorder operation 
EE98: 4C 33 FF JMP S$FF33 Back to normal IRQ routine 
KKK KKKKKRKKKKKKKEKKKKKKKK KKK KKK Set the IRQ vector 


EE9B: BD AQ EE LDA SEEA0,X X-indexed IRQ lo-addr f/ table 


EE9E: 8D 1403 STA $0314 Copy into sys IRQ vector low 
EEA1: BD Al EE LDA S$EEA1,X X-indexed IRQ high addr f/ table 
EEA4: 8D 15 03 STA $0315 Copy into sys IRQ vector high 
EEA7: 60 RTS Return from subroutine 
KKKKKKKKKKKKKKKKKKKKKKKKKKKEKKE Table of IRQ vectors 

EEA8: 2E EE (SEE2E) IRQ #1: Write to tape (header) 
EEAA: 90 ED (SED90) IRQ #2: Write to tape (buffer) 
EEAC: 65 FA ($FA65) Normal IRQ for keyboard read 
EEAE: EB EA ($EAEB) IRQ for reading from tape 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK Turn recorder motor off 


EEBO: A5 01 LDA * $01 Status of processor port data reg 
EEB2: 09 20 ORA # $20 In acc, set bit 5 and 

EEB4: 85 01 STA * $01 Turn the recorder motor off 
EEB6: 60 RTS Return from subroutine 
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KKKKKK KKK KKK KEK KKKKKKKKKKK KKK Check if end address reached 
If end address > start addr. C=0 


EEB7: 38 SEC Set carry for subtraction 

EEB8: A5 AC LDA * SAC Low of I/O start address in acc 
EEBA: E5 AE SBC * SAE Subtract low of I/O end address 
EEBC: A5 AD LDA * SAD High of I/O start address in acc 
EEBE: E5 AF SBC * SAF Subtract high of I/O end address 
EECO: 60 RTS Return from subroutine 

KAKK KK KK KKK KKKKKKKKKK KK KR RAK Incr. input/output start address 
EEC]: E6 AC INC * SAC Low value of I/O start addr.+ 1 
EEC3: DO 02 BNE SEEC7 No overflow in low value, exit 
EEC5: E6 AD INC * SAD High value of I/O address + 1 
EEC7: 60 RTS Return from subroutine 


KKKKKKRKK KKK KKK KKK KK KR KK KKKKEK Clear break flag in processor 


status 
EEC8: 08 PHP Put processor status on stack 
EEC9: 68 PLA And copy back into acc 
EECA: 29 EF AND # SEF Clear break flag 
EECC: 48 PHA And put status back on stack 
EECD: 4C 17 FF JMP S$FF17  ~— Jump tokernal IRQ routine 
KKKKKKKKKKKRKKKRKKKKKKKRKKKKKKK Check cassette recorder keys 
(IRQ) 
EEDO: A5 O01 LDA * $01 Get processor port data register 
EED2: 29 10 AND # $10 And test if key pressed 
EED4: FO OA BEQ $EEEO No key pressed, then exit 
EED6: AO 00 LDY # $00 Indicator for cassette recorder 
EED8: 84 CO sTY * $CO Reset OFF in zero-page tape flag 
EEDA: A5 01 LDA * $01 Get processor port data register 
EEDC: 09 20 ORA # $20 And set bit for motor off 
EEDE: DO 08 BNE SEEE8 Unconditional jump 
EEEO: A5 CO LDA * $CO Check z-page tape flag for motor 
EEE2: DO 06 BNE SEEEA If motor on, then skip 
EEE4: A5 01 LDA * $01 Get processor port data register 
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EEE6: 
EEE8: 
EEEA: 


29 DF 


85 
60 


01 


AND # $DF 
STA * $01 
RTS 


KKKKKKKEKKKKKEKKEKKEKKKKKEKKKKKKKK 


EEEB: 
EEED: 
EEEF : 
EEF 1: 
EEF3: 
EEF5: 
EEF 6: 


A5 
DO 
A5 
05 
FO 
78 
4c 


99 
OA 
DO 
D1 
OF 


06 


co 


LDA 
BNE 
LDA 
ORA 
BEQ 
SEI 
JMP 


*x $99 
SEEF9 
* $DO 
* $D1 
SEF04 


$Cc006 


KREKKKKKKKKKKKKKKKEKRKKKKKKKKKKKK 


EEF9: 
device 
EEFB: 
EEFD: 
EEFF: 
EFO2: 
EFO4: 
EFO5: 


cg 


DO 
84 
20 
A4 
18 
60 


02 


18 
97 


CE E7 


97 


CMP 


BNE 
STY 
JSR 
LDY 
CLC 
RTS 


# $02 


SEF15 
* $97 
SE7CE 
* $97 


KKKKKEKKKKKKKEKKKEKKKKEKKEKKKKKKKKK 


EFO6: 
EFO8: 
EFOA: 
EFOC: 
EFOE: 
EF10: 
EF12: 
EF15: 
EF17: 
EF19: 
EF1B: 


A5 
DO 
A5 
85 
A5 
85 
4c 
c9 
DO 
85 
A5 


99 
0B 
EC 
E9 
EB 
E8 
09 
03 
09 
D6 
E7 


co 


* 399 
SEF15 
* SEC 
* $EQ9 
* SEB 
* SE8 
$c009 
# $03 
SEF22 
* $D6 
* SET 


346 


And clear bit for motor on 
Write back into processor port 
Return from subroutine 


Kernal routine: GETIN 
Read a character 


Load acc with current input dev. 
Not keyboard, then continue 
Num. of char in keyboard buffer 
Combine with function key pntr 
No char there, then "OK" exit 
Disable all system interrupts 

Get char from keyboard buffer 


GETIN evaluation not RS-232 
Check if RS-232 is the input 


Not RS-232, to BASIN routine 
Store current contents of Y-reg 
GETIN routine of RS-232 

Get old contents of Y-reg back 
Set marker for everything OK 
Return from subroutine 


Kernal routine: BASIN 
Read character 


Load acc with current input dev. 
Not keyboard, then continue 
Get current cursor column in acc 
In z-page start of input column 
Get current cursor line in acc 

In zero page start of input line 
Get character from screen 

Check if input device is screen 
Not screen, then continue 

In zero-page pointer for input/get 
Load right window-border in acc 
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EF1D: 85 EA STA * SEA In zero page for end of input line 
EF1F: 4C 09 CO  JMP $c009 Get character from screen 

EF22: BO 38 BCS $EF5C Dev>3, read char from serial bus 
EF24: C9 02 CMP # $02 Input device 2 (RS-232) set? 
EF26: FO 3F BEQ SEF67 Yes, then get char from RS-232 
EF28: 86 97 STX * $97 Save current contents of X-reg 
EF2A: 20 48 EF JSR SEF48 Read a character from cassette 
EF2D: BO 16 BCS SEF45 Exit from routine: Read cassette 
EF2F: 48 PHA Save acc contents on stack 
EF30: 20 48 EF JSR SEF48 Read a character from cassette 
EF33: BO OD BCS SEF42 Error occurred, then skip 

EF35: DO 05 BNE SEF3C Last character read from tape? 
EF37: A9 40 LDA # $40 Put EOF marker in acc 

EF39: 2057 F7 JSR $F757 And set STATUS accordingly 
EF3C: C6 A6 DEC * $A6 Decrement tape buffer pointer 
EF3E: A6 97 LDX * $97 Get X-reg contents back 

EF40: 68 PLA Get acc contents back from stack 
EF41: 60 RTS Return from subroutine 


KKK KKK KK KK KKK KKK KKKRKKKR KKK Error occurred reading from tape 


EF42: AA TAX Put error number in X-reg 
EF43: 68 PLA Get character 

EF44: 8A TXA Put error number in acc 
EF45: A6 97 LDX * $97 Restore x-reg contents 
EF47: 60 RTS Return from subroutine 


KKKKKKKEKR KKK KEKE RKKEKEKRERKEEREKKR Read a character from cassette 


EF48: 20 BE E9 JSR $E9BE Increment tape buffer pointer 
EF4B: DO OB BNE SEF58 Still chars in buffer, then read 
EF4D: 20 F2 E9 JSR SE9F2 Read next block from cassette 
EF50: BO 09 BCS $EF5B STOP key pressed, then stop 
EF52: A9 00 LDA # $00 Load acc with $00 & in z-page 
EF54: 85 A6 STA * SA6 Storage for cassette buffer pntr 
EF56: FO FO BEQ SEF48 Get next character 

EF58: Bl B2 LDA ($B2),Y Read a character from the buffer 
EF5A: 18 CLC Set indicator for "OK" 

EF5B: 60 RTS Return from subroutine 


347 


Abacus Software 


C-128 Internals 





KKKKEKKKKEKKEKKKRKKKKKKKKKKKKKKKKE 


EF5C: 
EF5E: 
EF60: 


EF63: 
EF65: 
EF66: 


A5 
DO 
4c 


AQ 
18 
60 


90 
03 
3E E4 


0D 


LDA 
BNE 
JMP 


LDA 
CLC 
RTS 


* $90 
SEF 63 
$SE43E 


# $0D 


KAEKKEKKKKEKKKKKKEKKEKKEKKKEKKKKKKKKK 


EF67: 
EF6A: 
EF6C: 
EF6E: 
EF70: 
EF73: 
EF75: 
EF77: 


20 
BO 
co 
DO 
AD 
29 
DO 
FO 


FD EE 
F9 
00 
F6 
14 OA 
60 
EC 
EE 


JSR 
BCS 


SEEFD 
SEF65 
# $00 
SEF 66 
$0A14 
# $60 
SEF63 
SEF67 


KKEKKKKKKKKEKKEKEKKKKKEKKKKKKKKKKKK 


EF79: 
EF7A: 
EF7C: 
EF7E: 
EF 80: 
EF81: 


48 
A5 
cg 
DO 
68 
4c 


9A 
03 
04 


0c CO 


PHA 
LDA 
CMP 
BNE 
PLA 
JMP 


* SOA 
# $03 
SEF84 


$C00C 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


EF84: 
EF86: 
EF87: 
EF8A: 
EF8B: 
EF8C: 
EF8E: 


90 
68 
4c 
4A 
68 
85 
8A 


04 


03 ES 


9E 


BCC 
PLA 
JMP 
LSR 
PLA 
STA 
TXA 


SEF8A 


$E503 
A 


* SOR 
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Get character from serial bus 


Load system status in acc 
Status not OK, then exit 

Kernal ACPTR: get byte from 
serial bus 

Load code for <CR> in acc 
Set indicator for OK 

Return from subroutine 


Get character from RS-232 


Read a byte from RS-232 
Error occurred, then exit 

Was character read a zero-byte? 
No, then OK exit 

Load RS-232 status in acc 
Data set ready (DSR) missing? 
Yes, then return <CR> code 
No, then new read attempt 


Kernal routine: BSOUT 
(character out) 


Store character to output 

Get curent output device 

Is it the screen (3)? 

No, then skip screen output 
Get character to output 

In routine: Char output screen 


BSOUT output not to screen 


Output to RS-232 / Datassette 
Get character 

BSOUT output to serial (DA> 3) 
Test if RS-232 or datasette 

Get character to output 

And store in zero page 

Save current contents of X-reg 
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EF8F: 48 PHA On stack via acc 

EF90: 98 TYA Save current contents of Y-reg 
EF91: 48 PHA On stack via acc 

EF92: 90 23 BCC $EFB7 Jump to the RS-232 output 
EF94: 20 BE E9 JSR SEQ9BE Increment tape buffer pointer 
EF97: DO OE BNE S$EFA7 Buffer not full, char in buffer 
EF99: 2015 EA JSR S$EA15 Write buffer to tape 

EF9C: BO OE BCS S$EFAC If STOP key pressed, stop 
EF9E: AQ 02 LDA # $02 Set control byte for data block 
EFAO: AO 00 LDY # $00 Set displacement to tape buffer 
EFA2: 91 B2 STA ($B2),Y And write control byte to buffer 
EFA4: C8 INY Increment the displacement to 
EFA5: 84 A6 STY * SAG the tape buffer and store in Z-P 
EFA7: A5 9E LDA * $9E Character to output from Z-P 
EFA9: 91 B2 STA ($B2),Y Write in output buffer 

EFAB: 18 CLC Set indicator for OK 

EFAC: 68 PLA Restore old values from stack 
EFAD: A8 TAY Restore Y-reg contents 

EFAE: 68 PLA Restore 

EFAF: AA TAX X-reg contents 

EFBO: A5 9E LDA * $9E Get character to output 

EFB2: 90 02 BCC SEFB6 Everything OK, then return 
EFB4: A9 00 LDA # $00 Flag for "STOP" key pressed 
EFB6: 60 RTS Return from subroutine 


KKK KKK KKK KKK KAKA RK KERR KEK KKK Output RS-232 character 


EFB7: 20 5F E7 JSR SE75F Write character in RS-232 buffer 
EFBA: 4C AB EF JMP SEFAB Clean up stack and return 
KKKKKKKKKKKKEKEKKKKKKEKKEKKEKKKKER Kernal routine: OPEN 

Open a logical file 
EFBD: A6 B8 LDX * $B8 Get logical file number in X-reg 
EFBF: 20 02 F2 JSR $F202 Find LEN in LEN table 
EFC2: FO 2F BEQ SEFF3 Found, then output error 
EFC4: A6 98 LDX * $98 Get number of open files 
EFC6: EO 0A CPX # SOA Max of 10 open are possible 
EFC8: BO 26 BCS SEFFO More than 10 open, then error 
EFCA: E6 98 INC * $98 Number of open files +1 
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EFCC: A5 B8 LDA * $B8 Get logical file number in acc 
EFCE: 9D 62 03 STA $0362,X Enter LFN in LEN table 
EFD1: A5 B9 LDA * SB9 Get secondary address in acc 
EFD3: 09 60 ORA # $60 Set Print, Input, Get in SA 
EFD5: 85 B9 STA * $B9 And store in SA mem again 
EFD7: 9D 76 03 STA $0376,X Enter SA in SA table 

EFDA: A5 BA LDA * SBA Load device address in acc 
EFDC: 9D 6C 03 STA $036C,X GA in GA-Table 

EFDF: FO OD BEQ SEFEE Was it the keyboard (0), skip 
EFE1: C9 02 CMP # $02 Check if RS-232 selected as dev 
EFE3: FO 5B BEQ S$F040 Yes, then skip to RS-232 
EFE5: 90 OF BCC SEFF6 Less than 2, it is tape OPEN 
EFE7: C9 03 CMP # $03 Check if screen selected as dev 
EFE9: FO 03 BEQ SEFEE Yes, then skip 

EFEB: 20 CB FO JSR $FOCB Open file on serial bus 

EFEE: 18 CLC Set marker for everything OK 
EFEF: 60 RTS Return from subroutine 
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KKEKKKKKKKKKKKKKEKKKKKEKKKKKKKKKK 


EFFO: 
EFF3: 
EFF6: 
EFF 9: 
EFFB: 
EFFE: 
FO0O: 
F002: 
F004: 
F007: 
F009: 
FOOC: 
FOOE: 
FO1O: 
F013: 
F015: 
FO17: 
FOIA: 
FO1D: 
FOLF: 
F021: 
F023: 
F026: 
F028: 
FO2A: 
FO02D: 
FO2F: 
F031: 
F033: 
F035: 
F037: 
F039: 
FO3B: 
FO3C: 
FO3E: 
FO3F: 


4c 
4c 
20 
BO 
4c 
AS 
29 
DO 
20 
BO 
20 
A5 
FO 
20 
90 
FO 
4c 
20 
90 
FO 
BO 
20 
BO 


AY 


20 
AQ 
A4 
co 
FO 
AO 
A9 
91 
98 
85 
18 
60 


7¢ 
TF 
80 
03 
94 
B9 
OF 
1F 
c8 
36 
OF 
B7 
OA 
9A 
18 
28 
85 
DO 
OE 
1E 
F4 
E9 
17 
04 
19 
BF 
B9 
60 
07 
00 
02 
B2 


A6 


F6 
F6 
E9 


F6 


B9 


F5 


E9 


F6 
E8 


E9 


E9 


SF67C 
SF67F 
$E980 
SEFFE 
SF694 
* SB9 
# SOF 
SF023 
SE9C8 
SFO3F 
SF50F 
* SB7 
SFO1A 
SE99A 
$F02D 
SFO3F 
SF685 
SE8D0 
$F02D 
SFO3F 
$F017 
SE9E9 
SFO3F 
# $04 
$E919 
# SBF 
* SB9 
# $60 
SF03C 
# $00 
# $02 


($B2),Y 


* SA6 
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Open routine for tape operation 


I/O error #1 (Too many files) 
I/O error #2 (File open) 
Get tape buffer start address 
Carry set, then valid address 
V/O error #9 (egal device num) 
Get secondary address in acc 
Mask out upper nibble (4-7) 
Not zero, wait for record & play 
Wait for key on datasette 
Invaid, then carry = 1, RTS 
Message "SEARCHING FOR" 
Length of filename in acc 
No filename present, then skip 
Find corresponding tape header 
Not found, then continue 
Return with carry set 
I/O error #4 (File not found) 
Find next header on cassette 
If found then continue 
Return w/ carry on because EOT 
Cont search because a PRG file 
Wait for record & play buttons 
STOP key pressed, then stop 
Control code-data header in acc 
Write tape header to cassette 
Pointer to end of tape buffer in A 
Get secondary address in Y-reg 
SA code for print, input, or get? 
Yes, then set pointer and RTS 
Set displacement for tape buffer 
Control byte for data block 
Write into cassette buffer 
Copy displacement from Y to A 
And set zero page tape buffer 
Set indicator for OK 
Return from subroutine 


Abacus Software 


KRKEKKKKKKKEKKKKKKEKEKKKKKKKKKKKKKK 


FO40: 
F043: 
F046: 
F048: 
FO4A: 
FO4D: 
F050: 
FO51: 
F053: 
FO55: 
F058: 
FOSB: 
FO5E: 
F060: 
F062: 
F063: 
F064: 
F067: 
F069: 


FO6C: 


FO6F: 
F072: 


FO75: 


F078: 
FO7B: 
FOTVE: 
F081: 
F082: 
F083: 
FO86: 
F087: 
FO88: 
FO89: 
FO8B: 


20 
8C 
c4 
FO 
20 
99 
C8 
co 


BO 
14 
B7 


13 


C8 
16 


FO 
OA 


F7 
OA 


E6 
OA 
OA 


OA 


E8 


E8 


FO 
E8 


E8 


OA 


OA 
OA 


OA 


OA 


JSR 
STY 
CPY 
BEQ 
JSR 
STA 
INY 
CPY 


SFOBO 
$0A14 
* $B7 
SF055 
SF7AE 


$0A10,Y 


# $04 
$F046 
SE68E 
$0A15 
$0A10 
# SOF 
SFO7E 
A 


$0A03 
$SF072 


SE84F,X 


SE84E,X 


$F078 


$E863,X 


$E862,X 


$0A13 
$0A12 
$0A12 
A 


$0A13 
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RS-232 Open 


Reset CIAs 

Clear Z-P RS-232 status byte 
Compare with lengh of filename 
Equal zero, calculate data bits 
Get 1 byte for RS-232 register 
Init. RS-232 control register, 
Command register, and the 
User baud rate 

Loop until 4 values transferred 
Calculate number of data bits 
Storage number of bits to send 
Load RS-232 control register 
Isolate bits for baud rate 
Determine code value - baud rate 
Multiply by 2 for table displace 
Copy to X-reg for index 

Get PAL/NTSC pointer 

Not NTSC version, then skip 
Timer constant RS-232 b-rate 
NTSC Hi 

Timer constant RS-232 b-rate 
NTSC Lo 

Skip to save baud rate 

Timer constant RS-232 b-rate 
PAL Hi 

Timer constant RS-232 b-rate 
PAL Lo 

Store high value of baud rate 
Store low value of baud rate 
Get low value baud rate 

And multiply by 2 

Store value in X-reg 

Get high value of baudrate 
And multiply by 2 

Store value in Y-reg 

Low val code determine in acc 
Add decimal 200 

Store timer val transmit baud rate 
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FO8E: 98 TYA High val code determine in acc 
FO8SF: 69 00 ADC # $00 Add decimal 000 

F091: 8D 170A STA $0A17 Store timer value - transmit rate 
F094: AD 110A LDA $0A11 Get RS-232 command register 
FO97: 4A LSR A Check for 3-line handshake 
F098: 90 09 BCC $FOA3 Yes, then skip DSR test 

FO9A: AD 01DD LDA S$pDD01 Check if DATA SET READY 
FO9D: OA ASL A (DSR) signal missing 

FO9E: BO 03 BCS S$FO0A3 No, then skip 

FOAO: 2055 E7 JSR $E755 Set status for DSR 

FOA3: AD 18 OA LDA $0A18 Set start of RS-232 input buffer 
FOA6: 8D 19 0A STA $0A19 equal to end of input buffer 
FOA9: AD 1B OA LDA S0A1B Set start of RS-232 out. buffer 
FOAC: 8D 1A 0A STA SOA1A equal to end of output buffer 
FOAF: 60 RTS Return from subroutine 


KRKKKKKKR KKK KKK KKK KEK KEK KR KK Reset CIAs to RS-232 


FOBO: AQ 7F LDA # $7F Value for "clr interrupts" in acc 
FOB2: 8D 0D DD STA _ S$DDOD Reset IRQs 

FOB5: A9 06 LDA # $06 Set bits 1 and 2 to output 
FOB7: 8D 03 DD STA S$DD03 Data direction register port B 
FOBA: 8D 01 DD STA §$DD01 Port register port B 

FOBD: A9 04 LDA # $04 Set bit 2 of data port A (CIA 2) 
FOBF: 0D 00 DD ORA §$DD00 For the RS-232 data output 
FOC2: 8D 00 DD’ STA S$DDO00 (TXD Signal) 

FOC5: AO 00 LDY # $00 Load Y with $00 and clear the 
FOC7: 8C OF OA STY S$O0AO0F RS-232 NMI flag 

FOCA: 60 RTS Return from subroutine 
KKKKKKKKKKKKKKKKKKKKKEKKKKEKKKKEE Open file on serial bus 

FOCB: A5 B9 LDA * $B9 Load secondary address in acc 
FOCD: 30 04 BMI $F0D3 If bit 7 set for "CLOSE", exit 
FOCF: A4 B7 LDY * $B7 Get length of filename 

FOD1: DO 02 BNE $FOD5 Not zero, then continue 

FOD3: 18 CLC Clear carry for OK indicator 
FOD4: 60 RTS Return from subroutine 
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KKKKKKKKKKKKKEKKKKKKKEKKKKEKKKKKK Send filename on serial bus 
FOD5: A9 00 LDA # $00 Set the status byte to the 
FOD7: 85 90 STA * $90 Marker $00 (= everything OK) 
FOD9: A5 BA LDA * SBA Load device address in acc 
FODB: 20 3E E3 JSR $E33E Wait for end of RS-232 transfer 
FODE: 24 90 BIT * $90 Test STATUS for set EOF bit 
FOEO: 30 0B BMI SFOED If EOF, then output error 
FOE2: A5 BQ LDA * $B9 Load secondary address in acc 
FOE4: 09 FO ORA # SFO Set control nibble in SA 
FOE6: 20 D2 E4 JSR $E4D2 Rout. SECND: SA for LISTEN 
FOE9: A5 90 LDA * $90 Load system STATUS in acc 
FOEB: 10 05 BPL $FOF2 If OK, continue as normal 
FOED: 68 PLA Remove RTS address from stack 
FOEE: 68 PLA Remove RTS address from stack 
FOEF: 4C 88 F6 JMP S$F688 I/O error #5 (Device not present) 
FOF2: A5 B7 LDA * $B7 Get length of filename 
FOF4: FO 0D BEQ $F103 No name given, then skip 
FOF6: AO 00 LDY # $00 Displ. to first char of filename 
FOF8: 20 AE F7 JSR SFT7AE Read 1 character of filename 
FOFB: 20 03 E5 JSR $E503 Krnal CIOUT: byte to serial bus 
FOFE: C8 INY Increment displacement pointer 
FOFF: C4 B7 CPY * $B7 Displacement = filename length? 
F101: DO F5 BNE $FOF8 No, then continue to output 
F103: 4C BO F5  JMP $F5BO UNLSN on serial bus and RTS 
KKKKKKKKKEKKE KEKE KKK KKKKKKKKKEE Kernal routine: CHKIN 

Set input channel 
F106: 2002 F2 JSR $F202 Search for LFN in LEN table 
F109: DO 3E BNE $F149 1/O error #3 (File not found) 
F10B: 2012F2 JSR $F212 Reset LFN,DA,SA 
F10E: FO 13 BEQ $F123 DA = 0, then set standard 
F110: C9 03 cMP # $03 Is it the DA 3 (= screen )? 
F112: FO OF BEQ $F123 Yes, then set screen for standard 
F114: BO 11 BCS $F127 Greater than 3, then serial eval. 
F116: C9 02 CMP # $02 Check if RS-232 selected 
F118: DO 03 BNE $F11D No, then it was the datasette 
F11A: 4C 95 E7 JUMP $E795 To RS-233 input 
F11D: A6 B9 LDX * $B9 Get secondary address in X-reg 
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F11F: EO 60 CPX # $60 Is the secondary address = 0? 
F121: DO 20 BNE $F143 I/O error #6 (Not input file) 
F123: 85 99 STA * $99 In Z-P for standard input device 
F125: 18 CLC Set indicator for OK 

F126: 60 RTS Return from subroutine 


KAKA KKK KKK KKK EKER KER KKK EKER Evaluation for CHKIN on serial 


F127: AA TAX Store device address in X 
F128: 20 3B E3 JSR $E33B Rout. TALK: cmd to serial bus 
F12B: 24 90 BIT * $90 Test STATUS for set EOF bit 
F12D: 30 11 BMI $F140 Bit 7 set = "Device not present” 
F12F: A5 B9 LDA * $B9 Load secondary address in acc 
F131: 10 05 BPL $F138 Send secondary addr. for TALK 
F133: 20 E9 E4 JSR $E4E9 Wait for clock signal 
F136: 10 03 BPL $F13B Skip output of TALK sec. addr. 
F138: 20 £0 E4 JSR $E4E0 Routine TKSA: sec addr for talk 
F13B: 8A TXA Get device addr. back from acc 
F13C: 24 90 BIT * $90 Test STATUS for set EOF bit 
F13E: 10 E3 BPL $F123 Everthing OK, set input device 
F140: 4C 88 F6 JMP SF688 I/O error #5 (Device not present) 
F143: 4C 8B F6é JMP S$F68B I/O error #6 (Not input file) 
F146: 4C 8E F6 JMP S$F68E I/O error #7 (Not output file) 
F149: 4C 82 F6 JMP S$F682 1/O error #3 (File not open) 
KKEKKKKKKKKKRK KEKE KKKEKKKKKKEKKKKKE Kernal routine: CKOUT 

Set output channel 
F14c: 20 02 F2 JSR $F202 Search for LFN in LEN table 
F14F: DO F8 BNE $F149 I/O Eerror #3 (File not open) 
F151: 2012 F2 JSR $F212 Reset LFN, DA, SA 
F154: FO FO BEQ $F146 V/O error #7 (Not output file) 
F156: C9 03 CMP # $03 Compare with DAA 3 (= screen) 
F158: FO OF BEQ $F169 Yes, then set as standard output 
F15A: BO 11 BCS $F16D DA > 3, then serial evaluation 
F15C: C9 02 CMP # $02 Check if RS-232 selected 
F15E: DO 03 BNE $F163 No, then skip 
F160: 4C 29 E7 JMP $E729 To RS-232 output 
F163: A6 B9 LDX * $B9 Get secondary address in X-reg 
F165: EO 60 CPX # $60 Is the secondary address = 0? 
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F167: 
F169: 
F16B: 
F16C: 


FO 
85 
18 
60 


DD 
9A 


BEQ 
STA 
CLC 
RTS 


SF146 
* SOA 


KRKKEKKKKKRKKEKKKKEKKEKEKKEKKEKKEKKKKKKE 


F16D: 
F16E: 
F171: 
F173: 
F175: 
F177: 
F179: 
F17C: 
FI7E: 
F181: 
F182: 
F184: 
F186: 


AA 
20 
24 
30 
A5 
10 
20 
DO 
20 
8A 
24 
10 
30 


3E E3 
90 
CB 
B9 
05 
D7 E4 
03 
D2 E4 


90 
E3 
B8 


TAX 
JSR 
BIT 
BMI 
LDA 
BPL 
JSR 
BNE 
JSR 
TXA 
BIT 
BPL 
BMI 


$E33E 
* $90 
$F140 
* SB9 
$F17E 
SE4D7 
$F181 
SE4D2 


* $90 
$F169 
$F140 


KKRKKKKKEKKKKKKKKKEKKKKKEKKKRKKKKKE 


F188: 
F18A: 
F18D: 
F18F: 
F192: 
F193: 
F194: 
F196: 
F198: 
F19A: 
F19C: 
F19E: 
F1A0: 
F1A2: 
F1A3: 
F1A6: 


66 
20 
DO 
20 
8A 
48 
A5 
FO 
cg 
FO 
BO 
cg 
DO 
68 
20 
4c 


92 
07 F2 
DC 
12 F2 


BA 
4c 
03 
48 
31 
02 
07 


E5 Fl 
BO FO 


* $92 
$F207 
$F16B 
$F212 


* SBA 
SF1E4 
# $03 
SF1E4 
SF1CF 
# $02 
$F1A9 


SF1E5 
SFOBO 
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V/O error #7 (Not output file) 
In Z-P for standard out device 
Set indicator for OK 

Return from subroutine 


Evaluation for CKOUT on serial 


Dev addr. for LISTN in X-reg 
Rout LISTN: cmd to serial 

Test STATUS for set EOF bit 
V/O error #5 (Device not present) 
Load secondary address in acc 
OPEN/CLOSE bit clr, then skip 
Reset ATN signal 

Skip output of listen sec. addr 
Rout SECND: sec. addr for listn 
Device address back in acc 

Test status for set EOF bit 
Everything OK, then RTS 

I/O error #5 (Device not present) 


Kernal routine: CLOSE 
Close a file 


Rotate carry as marker, Z-P flag 
Search for LFN in LFN table 
Not found, then OK return 
LFN,DA,SA renew corr. tables 
Table displacement pointer 

Save on stack 

Load device address in acc 
Addressed device the keyboard? 
Check if device addressed was 
Screen (3)Yes, then skip 

Was it a device on the serial bus? 
Was it the RS-232? 

No, then close on cassette 

Get the displacement to the table 
Delete file entry from table 
Reset CIAs and RTS 
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KKKKKKKKKKKEKKEKKKKKEKKKRKKKKKKKER 


F1A9: 
F1AB: 
F1AD: 
FIAF: 
F1B2: 
F1B4: 
F1B5: 
F1B8: 
F1BB: 
F1BD: 
F1BE: 
F1C0: 


KRKKKKKKEKKKKKKKKKKKEKKKKKKKKKKKE 


F1Cl: 
F1C3: 
F1C5: 
F1C7: 
F1C9: 
F1CC: 
F1CF: 
F1D1: 
F1D3: 
F1D5: 
F1D7: 
F1D9: 
F1DB: 
F1DD: 
F1DF: 
F1E1: 


KAKKKKKKKEKKKKKEKKKKEKKKKKKKKKEKKKE 


F1E4: 
FL1ES5: 
FIE6: 


AS 
29 
FO 
20 
A9 
38 
20 
20 
90 
68 
A9 
60 


A5 
cg 
DO 
AQ 
20 
4c 
24 
10 
A5 
cg 
90 
AS 
29 
c9 
FO 
20 


68 


AA 


C6 


B9 
OF 
35 
80 E9 
00 


8C EF 
15 EA 
04 


00 


B9 
62 
1D 
05 
19 E9 
E4 Fl 
92 
OE 
BA 
08 
08 
B9 
OF 
OF 
03 
9E F5 


98 


LDA 
AND 
BEQ 
JSR 
LDA 
SEC 
JSR 
JSR 
BCC 
PLA 
LDA 
RTS 


LDA 
CMP 


PLA 
TAX 
DEC 


* $B9 
# SOF 
SF1E4 
$E980 
# $00 


SEF8C 
$EA15 
$F1c1 


# $00 


* SB9 
# $62 
SF1E4 
# $05 
$E919 
SF1E4 
* $92 
$FP1E1 
* SBA 
# $08 
SF1E1 
* SB9 
# SOF 
# SOF 
SFP1E4 
SF59E 


* $98 


Close a tape file 


Load secondary address in acc 
Mask out upper nibble (4-7) 
Delete file entry from table 

Get tape buffer address & check 
Set marker for close and 

Set control marker carry 

Write character in buffer 

Write buffer to tape 

All OK, continue with tape close 
Get character output back 
Replace with CHR$(0) 

Return from subroutine 


Delete file entry 


Load secondary address in acc 
Lower nibble of the SA = 2? 
Delete file entry from table 

Set control byte for EOT header 
Write data block to tape 
Delete file entry from table 
Check tape time constant 

Less than 128, then send close 
Load device address into acc 
Was it a disk drive (8-15) 

No, then skip disk close 

Load secondary address into acc 
Mask out upper nibble (bits 4-7) 
Was cmd channel (15) opened 
then delete file entry from table 
Send CLOSE cmd to device 


Delete file entry from table 
Get displacement to table 


Copy displacement from A to X 
Number of open files - 1 
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F1E8: E4 98 CPX * $98 Was the table entry found the 
FIEA: FO 14 BEQ $F200 Last table entry? Then exit 
F1EC: A4 98 LDY * $98 Get num. of open files for displ. 


FIEE: B9 62 03 LDA $0362,Y¥ Get last entry from LFN table 
FIF1: 9D 62 03 STA $0362,X And copy to free position 
F1IF4: B9 6C 03 LDA $036C,Y Get last entry in DA table 
F1IF7: 9D 6C 03 STA $036C,X And copy to free position 
FIFA: B9 76 03 LDA $0376,Y Get last entry from SA table 
FIFD: 9D 76 03 STA $0376,X And copy to free position 


F200: 18 CLC Set indicator for OK 

F201: 60 RTS Return from subroutine 

KKKKKKKKKKKKKKKKKEKKEKKEKRKKKK KKK Search for LFX in X in LFN 
table 

F202: A9 00 LDA # $00 Clear status byte and 

F204: 85 90 STA * $90 Set indicator for everything OK 

F206: 8A TXA Copy target for LFN in acc 

F207: A6 98 LDX * $98 Get number of open files 

F209: CA DEX Dec by 1, because used as index 

F20A: 30 05 BMI $F211 All comparisons negative, exit 

F20C: DD 62 03 CMP $0362,X Cmp with byte from LEN table 

F20F: DO F8 BNE $F209 Not equal, then next comparison 

F211: 60 RTS Return from subroutine 


KRKKKKKRKAKKKKKKKKKKKKREKKKKKKKKK LFN,DA,SA corresponding to 
the X-reg 
Get displacement to tables 


F212: BD 62 03 LDA $0362,X The logical file number specified 


F215: 85 B8 STA * SB8 by X-reg in z-page byte for LFN 
F217: BD 76 03 LDA $0376,X The secondary address specified 
F21A: 85 B9 STA * $B9 by X-reg in z-page byte for SA 
F21C: BD 6C 03 LDA $036C,X The device address specified by t 
F21F: 85 BA STA * SBA X-reg in zero-page byte for DA 
F221: 60 RTS Return from subroutine 


358 


Abacus Software 


C-128 Internals 





KKKKKKKKEKKKEKKEKKKKKKKKRKKKEKKKKER 


F222: 
F224: 


AQ 
85 


00 
98 


LDA 
STA 


# $00 
* $98 


KKKKKKKEKKKEKKKKKKKKKEKKKEKKKKKKEKE 


F226: 
F228: 
F22A: 
F22C: 
F22F: 
F231: 
F233: 
F236: 
F238: 
F23A: 
F23C: 


A2 
E4 
BO 
20 
E4 
BO 
20 
86 
A9 
85 
60 


03 
9A 
03 
26 E5 
99 
03 
15 E5 
9A 
00 
99 


# $03 
* SOA 
$F22F 
$E526 
* $99 
S$F236 
$E515 
* SOA 
# $00 
* $99 


KRKKEKKKKKKKKEKKEKRKKKKKKKKKKKKKKKK 


F23D: 
F23F: 
F241: 
F243: 
F245: 
F247: 
F24(: 
F24A: 
F24C: 
F24E: 
F250: 
F252: 
F254: 
F255: 
F257: 
F25A: 
F25C: 


85 
C5 
DO 
AQ 
85 
2c 
cS 
DO 
Ag 
85 
A5 
A6 
CA 
30 
DD 
DO 
BD 


BA 
9A 
05 
03 
9A 


99 
04 
00 
99 
BA 
98 


0D 
6C 03 
F8 
62 03 


STA 
CMP 
BNE 
LDA 
STA 


* SBA 
* SOA 
$F248 
# $03 
* SOA 


-Byte $2C 


CMP 


# $99 
$F250 
# $00 
* $99 
* SBA 
* $98 


$F264 


$036C,X 


$F254 


$0362,X 
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Kernal routine: CLALL 
Reset all open files 


Load acc with 0 and in zero-page 
Storage for number of open files 


Kernal routine: CLRCH 
Reset input/output channel 


Load code for device screen (3) 
Cmp with current output dev in 
CLRCH rout - dev on serial bus 
Rout UNLSN:cmd to serial bus 
Cmp with current input device in 
CLRCH rout dev on serial bus 
Rout UNTLK:cmd to serial bus 
Set screen as output device and 
The keyboard as the standard 
Input device 

Return from subroutine 


Set standard I/O devices 


In Z-P byte for current dev addr 
Cmp with current output device 
Not equal, cmp with input dev 
Load acc with dev addr for 
Screen (3) & set as output device 


Skip to $F24A 
‘Cmp with current input device 


Not equal, search in DA table 
Load acc with code for keybaord 
(0) and set the keyboard as input 
Load device address in acc 
Number of open files in X-reg 
Decremnt by 1, used as index 
All comparions negative, exit 
Cmp with table for dev addr. 
Not found, then next compare 
Get LEN for corresponding DA 
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nN 


F25F: 
F262: 
F264: 


20 C3 FF 


90 
60 


EC 


JSR 
BCC 
RTS 


SFFC3 
$SF250 


KREKKEKKKKKKKKKKKKEKKKKKKKKKKEKKEKK 


F265: 
F267: 
F269: 
F26C: 
F26E: 
F270: 
F272: 
F274: 
F276: 
F278: 


86 
84 
6C 
85 
A9 
85 
A5 
co 
BO 
4c 


C3 
c4 
30 
93 
00 
90 
BA 
04 
03 


03 


26 F3 


STX 
STY 


* $C3 
* $C4 
($0330) 
* $93 
# $00 
* $90 
* SBA 
# $04 
$F27B 
$F326 


KKKKKKKKKKKKKKKKKKKKEKKEKKKKKKKEK 


F27B: 
F27E: 
F280: 
F283: 
F285: 
F287: 
F289: 
F28B: 
F28E: 
F290: 
F293: 
F296: 
F298: 
F29B: 
F29D: 
F29F: 
F2A1: 
F2A3: 
F2A6: 
F2A8: 


AD 
29 
8D 
A6 
86 
A4 
DO 
4c 
84 
20 
20 
BO 
4c 
A4 
84 
Ag 
85 
20 
A5 
20 


1c 
BE 
1c 
B9 
9E 
B7 
03 
1A 
oF 
OF 
Al 
03 
9B 
oF 
B7 
60 
B9 
CB 
BA 
3B 


OA 


OA 


F3 


FS 
F3 


F3 


FO 


E3 


SOAI1C 
# SBE 
SOA1C 
* SB9 
* $9E 
* SB7 
SF28E 
SF31A 
* SOF 
SF50F 
SF3Al1 
$F29B 
SF39B 
* SOF 
* SB7 
# $60 
* $B9 
SFOCB 
* SBA 
$E33B 


360 


Kernal CLOSE: close file 
If carry clear, next close 
Return from subroutine 


Kernal routine: LOAD 
Load file in a memory range 


Place start address low in z-page 
Place start addr. high in z-page 
Vector points LOADSP ($F26C) 
Zero-page flag, LOAD/VERIFY 
Load acc with $00 and 

Set status to everything OK 
Load device address in acc 
Check for valid device address 
Dev addr greater than 4 is valid 
Check for datasette, else invalid 


Load routine from serial bus 


Read sys pointer for fast serial 
Mode & eliminate bit 6 (1 = fast, 
0 = slow) 

Get secondary address in X-reg 
And store in zero page $9F 

Get length of filename 

Not zero, skip error message 
1/O error #8 (Missing filename) 
Store length of filenames 
Output "Searching for" message 
Chk filenames & fast serialmode 
Carry set, then OK. Skip 

Set load end address and RTS 
Length of filename in Y-reg and 
In z-page for length of filename 
SA 0, high nibble for Input/Get 
In zero-page for sec. address 
Send talk command to serial bus 
Load device address in acc 

Rout TALK: cmd to serial bus 
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LT EEE 


F2AB: A5 
F2AD: 20 
F2B0: 20 
F2B3: 85 
F2B5: 20 
F2B8: 85 
F2BA: A5 
F2BC: 4A 
F2BD: 4A 
F2BE: BO 
F2Cc0O: Ad 
F2C2: DO 
F2Cc4: A5 
F2C6: 85 
F2C8: A5 
F2CA: 85 
F2CC: 20 
F2CF: A9 
F2D1: 25 
F2D3: 85 
F2D5: 20 
F2D8: FO 
F2DA: 20 
F2DD: AA 
F2DE: A5 
F2EO0O: 4A 
F2E1: 4A 
F2E2: BO 
F2E4: 8A 
F2E5: A4 
F2E7: FO 
F2E9: 85 
F2EB: AO 
F2ED: 20 
F2F0 c5 
F2F2 FO 
F2F4 A9 
F2F6 20 
F2F9 DO 
F2FB 20 


EO E4 


3E E4 


3E E4 


33 FS 


El FF 


3E E4 


C9 F7 


57 F7 


BF F7 
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Load secondary address into acc 
Rout TKSA: Sec addr for TALK 
Get a byte from serial bus 

Place start address in zero page 
Get a byte from serial bus 

Store start addr high in z-page 
Load system status in acc 

Shift timeout bit right 

Shift timeout bit into carry 
Timeout for read, File not found 
Get stored secondary address 
Not equal to 0, then skip 

Copy the start address given by 
The X and Y registers for the 
Load command from $C3,$C4 
To $AE,$AF 

Disp. control message on screen 
Mask out read timeout bit from 
Status and write back 

To status 

Kernal STOP: test for STOP key 
To interruption of load routine 
Kernal routine: ACPTR 

Store acc contents in X 

Load system STATUS in acc 
Eliminate the "read timeout" bit 
From the status byte 

If timeout, then new read attempt 
Restore old acc contents 

Test z-page load/verify pointer 
If zero, then it's load 

Store in zero page parity buffer 
Displac pointer for FETCH rout 
FETCH rout for LSV operations 
Compare with Z-P parity buffer 
If equal, then OK and skip 

Not equal, then OK and skip 
Kernal STATUS: Set sys status 
Not OK, then skip store 

Indsta routine via Z-P $AE-$AF 
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pees 


F30E: 20 15 E5 
F311: 20 9E F5 
F314: 4C 9B F3 
F317: 4¢C 85 F6 
F31A: 4C 91 F6 
F31D: 4C 94 F6 
F320: 4C 97 F6 
F323: 4C B5 FS 


F32A: 20 80 E9 


F32F: 20 C8 EQ 


F334: 20 OF FS 


F33B: 20 9A E9 


F344: 20 DO E8 
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Low byte of memory pointer +1 
No overflow, then skip 

High byte of memory pointer +1 
Check if high byte points in $ 
$FFOO range. If yes, then jump 
To error output 

Test STATUS for set EOF bit 
No EOF yet, then continue 

Rout UNTLK: cmd to serial bus 
Send Unlistn- Close to serial bus 
Clear carry and return 

I/O error #4 (File not found) 

I/O error #8 (Missing filename) 
1/O error #9 (Illegal device num) 
1/O error #10 

Jump, LOAD routine interrupted 
Is it a load from Datassette? 

No, then I/O error #9 

Get and check tape buffer addr. 
Tape buffer address illegal, error 
Wait for button on recorder 
Interrupt STOP key, then RTS 
Output SEARCH FOR filename 
Z-P storage for filename length 
Length =0, skip name search 
Seach for tape header after name 
OK, then continue 

Interrupt STOP key, then RTS 
Y/O error #4 (File not found) 
Read program header from tape 
Interrupt STOP key, then RTS 
V/O error #4 (File not found) 
Marker: Set error found 

Load system status in acc 
Eliminate bit 4 for read error 

Bit 4 set (read error), then RTS 
Code, header type#1 BASIC prg 
If it is a BASIC program, skip 
Code, header type #3 (ML prg) 
If not #1 or #3, continue search 
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ee 


F35A: AO 
F35c: Bl 
F35E: 85 
F360: C8 
F361: Bl 
F363: 85 
F365: BO 
F367: A5 
F369: DO 
F36B: AO 
F36D: Bl 
F36F: AO 
F371: Fl 
F373: AA 
F374: AO 
F376: Bl 
F378: AO 
F37A: Fl 
F37C: A8 
F37D: 18 
F37E: 8A 
F37F:- 65 
F381: 85 
F383: 98 
F384: 65 
F386: 85 
F388: C9 
F38A: FO 
F38C: A5 
F38E: 85 
F390: A5 
F392: 85 
F394: 20 
F397: 20 
F39A: 24 


01 
B2 
C3 


B2 
c4 
04 
B9 
EF 
03 
B2 
01 
B2 


04 
B2 
02 
B2 


33 F5 
FB E9 


JSR 


# $01 


($B2) ,¥ 


* $C3 


($B2) ,¥ 


* $C4 
SF36B 
* $B9 
SF35A 
# $03 


($B2) ,¥ 


# $01 


($B2) ,¥ 


# $04 


($B2),Y 


# $02 


($B2),Y 


* $C3 
SAE 


* 


x $C4 
* SAF 
# SEF 
$F320 
* $C3 
* $Cl 
x $Cc4 
* $C2 
$F533 
SE9SFB 


-Byte $24 
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Displacement to cassette buffer 
Get start addr low from buffer 
And copy it to load addr ptr low 
Displacement in cass buffer +1 
Get start addr high from buffer 
& copy it in load addr ptr high 
Unconditional jump for ML prg 
Load secondary address in acc 
Is it O (append)? No, then skip 
Displacement to cassette buffer 
Get end address low from buffer 
Displacement to cassette buffer 
Subtract start addr low from end 
Addr & store low value in X reg 
Displacement to cassette buffer 
Get end addr high from buffer 
Displacement to cassette buffer 
Subtract start addr high from end 
Addr & store high value in Y-reg 
Clear carry for addition 

Program length low back in acc 
Memory start addr + prg length 
Place in pointer for end addr low 
Program length high back in acc 
Memory start addr + prg length 
Place in pntr for end addr high 
Does end addr extend into 
$FFOO. Yes, then I/O error #0 
Copy the memory start address 
low into z-page load pointer low 
Copy the memory start addr high 
Into the z-page load pointer high 
Output LOADING/VERIFYING 
Load program from tape 

Skip to $F39C 
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KKEKKKKKKKKKKKKKEKEKKKKEKKKKKKKKKK 


F39B: 
F39C: 
F39E: 
F3A0: 


18 


A6 AE 


A4 
60 


AF 


CLC 
LDX 
LDY 
RTS 


x SAE 
x SAF 


KRRKKKKKKEKKKKKEKKKKEKKKKKKKKKKEKE 


F3A1: 
F3A3: 
F3A6: 
F3A8: 
F3AA: 
F3AC: 
F3AE: 
F3B0: 
F3B3: 
F3B5: 
F3B8: 
F3BA: 
F3BD: 
F3BF: 
F3C2: 
F3C3: 
F3C4: 
F3C7: 
F3C9: 
F3CC: 
F3CF: 
F3D0: 
F3D2: 
F3D5: 
F3D8: 
F3D9: 
F3DB: 
F3DD: 
F3E0: 
F3E3: 


AO 
20 
cg 
FO 
A6 
AO 
AQ 
20 
85 
20 
A6 
20 
90 
20 
68 
68 
4c 
AO 
B9 
20 
88 
DO 
20 
20 
c8 
C4 
DO 
20 
2c 
70 


F7 


F7 


FF 


FF 


F4 


F6 
F5 
FF 


F7 
FF 


FF 
0A 


# $00 
SF7AE 
# $24 
SF3A0 
* SBA 
# SOF 
# $00 
$F738 
* $B7 
SFFCO 
* $B8 
SFFC9 
$F3C7 
$F48C 


$F688 
# $03 


$F50B,Y 


SFFD2 


$F3C9 
SF7AE 
SFFD2 


* SOF 
$F3D2 
SFFCC 
S$OA1C 
SF3EA 
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Set prg end address after LOAD 


Set carry for OK indicator 
Program end addr low in X-reg 
Program end addr high in Y-reg 
Return from subroutine 


Check filenames and the 
"fast serial mode" 


Set displace for FETCH routine 
Get byte of filename 

Is first character a <$>? 

Yes, then return: RTS 

Load device address in X-reg 
Set secondary address to (15) 
Set logical file number to 0 
Rout SETLFS: Set file params. 
Set length of the filename to 0 
Kernal OPEN: Open file 

Get logical file number in X 
Krnl CKOUT: Set output chnl 


‘No error, then continue 


Close logical file again 

Remove RTS addr from stack 
Remove RTS addr from stack 
1/O error #5 (Device not present) 
Loop and displacement counter 
Cmd sequence string to disk 
Kernal BSOUT: Output a char 
Decrement loop and displ. by 1 
Loop to U0; CHR§(31) to disk 
Get character fo filename 

Kernal BSOUT: Output a char 
Incr. displacement to filename 
Compare with length of filename 
Not reached, next character 

Krnl CLRCH: Reset I/O channel 
Check "fast serial mode" pointer 
Fast transfer possible, skip 
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F3E5: 
F3E8: 
F3E9: 


20 8C F4 


38 
60 


JSR 
SEC 
RTS 


SF48C 


KRARKKKKKKKKKKEKKEKEKKKKEKKKKKKEKKKEK 


F3EA: 
F3EC: 
F3EE: 
F3EF: 
F3F2: 
F3F5: 
F3F8: 
F3FB: 
F3FE: 
F400: 
F402: 
F405: 
F406: 
F407: 
F40A: 
F40B: 
F40D: 
F40F: 
F412: 
F415: 
F417: 
F4l1A: 
F41C: 
F41E: 
F4l1F: 
F421: 
F424: 
F427: 
F42A: 
F42C: 
F42F: 
F432: 
F434: 


A5 
85 
78 
20 
20 
2c 
20 
20 
cg 
DO 
20 
68 
68 
4C 
48 
cg 
DO 
20 
20 
85 
4c 
cg 
90 
68 
BO 
20 
20 
20 
85 
20 
20 
85 
A6 


E5 
E5 
Dc 
F5 
F4 


F4 


F6 


FS 
F4 


F4 


F5 
F5 
F4 


FS 
F4 


* SOF 
* SB7 


$E545 
$E5C3 
$DCOD 
$F503 
SF4BA 
# $02 
SF40A 
SF48C 


$F685 


# S$1F 
SF41A 
$F503 
SF4BA 
* SAS 
$F421 
# $02 
$F421 


SF498 
$F533 
$F503 
SF4BA 
* SAE 
$F503 
SF4BA 
* SAF 
* $9E 
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Close logical file again 
Set OK indicator 
Return from subroutine 


LOAD / VERIFY routines in 
burst mode 


Temp storage for filename length 
In Z-P ptr for filename length 
Disable system interrupts 

Clock high signal to serial bus 
Wait for response from bus 
Clear the CIA IRQ flag 

Invert clock low/high signal 

Get byte from bus (trans status) 
Check if transfer status "File not 
Found" displayed. No, then skip 
Clock hi to ser. bus & close file 
Remove 2-byte RTS return addr 
From stack 

I/O error #4 (File not found) 
Transfer status to stack 

Is it indicator for last block? 

No, then skip 

Invert clock low/high signal 

Get byte from bus (block-byte #) 
In Z-P byte number loop counter 
Set load address 

Check transfer status 

Code $01 indicates OK.OK,skip 
Erase stored transfer status 
Jump to "Load error" exit 
Output LOADING/VERIFYING 
Invert clock low/high signal 

Get byte from bus,load addr low 
Save in Z-P address pointer low 
Invert clock low/high signal 

Get byte from bus,load addr hi 
Store in Z-P address pointer 
Load & check stored sec address 
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F436: DO 
F438: A5 
F43A: A6 
F43cC: 85 
F43E: 86 
F440: A5 
F442: A6 
F444: 85 
F446: 86 
F448: 68 
F449: C9 
F44B: FO 
F44D: 20 
F450: Ag 
F452: 85 
F454: 20 
F457: 20 
F45A: FO 
F45C: 20 
F45F: BO 
F461: 20 
F464: cg 
F466: 90 
F468: C9 
F46A: FO 
F46C: DO 
F46E: 20 
F471: Ag 
F473: 85 
F475: DO 


08 
C3 
c4 


03 F5 


3D F6 
El FF 


C5 F4 


BA F4 


03 F5 


Not zero, then load prg absolute 
Get LOAD address low in acc 
Get LOAD load addr hi in X-reg 
Load addr low in addr pntr low 
Load addr hi in addr pointer high 
Get address pointer low 

Get address pointer hi in X-reg 
Set acc as load address pointer 
Set X-reg as load addr pointer 
Get transfer status from stack 
Status point to last prg block? 
Yes, skip standard block length 
Invert clock low/high signal 

Set the data byte counter for the 
First block of file to read to 252 
Test shift RUN/STOP 

Kernal STOP: Test STOP key 

If zero exit through STOP key 
Read block from disk &process 
Error in memory addr, then RTS 
Get byte from bus (xfer status) 
Check transfer status 

Code $01 indicates OK.OK,skip 
Was it the status for last block? 
Yes, then read last block 

Jump to "load error" exit 

Invert clock low/high signal 

Set data byte counter for normal 
Block to 254 bytes 
Unconditional jump to read rout 
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F477: 
F47A: 
F47D: 
FATF: 
F482: 
F485: 
F487: 
F489: 


20 
20 
85 
20 
20 
BO 


~ AQ 


20 


03 F5 
BA F4 
AS 
03 FS 
C5 F4 
2B 
40 
57 F7 


JSR 
JSR 
STA 
JSR 
JSR 
BCS 
LDA 
JSR 


$F503 
SF4BA 
* SA5 
$F503 
$F 4C5 
SF4B2 
# $40 
$F757 


KHREKKKKKKKKKKKKKKEKKRKKEKKKKKKKKK 


F48C: 
F48F: 
F490: 
F492: 
F493: 
F496: 
F497: 


20 
58 
A5 
38 
20 
18 
60 


45 E5 


B8 


C3 FF 


JSR 
CLI 
LDA 
SEC 
JSR 
CLC 
RTS 


$E545 


* $BB8 


$FFC3 


KHKKKKKEKKKKEKKEKKKEKKKKKKKKKKKKKEK 


F498: 
F49A: 
F49D: 
F4A0: 
F4Al1: 
F4A2: 
F4A4: 
F4A5: 


A9 
20 
20 
68 
68 
A9 
38 
60 


02 
57 F7 
8C F4 


29 


LDA 
JSR 
JSR 
PLA 
PLA 
LDA 
SEC 
RTS 


# $02 
$F757 
SF48C 


# $29 


KREKKEKKKKEKKEKKKEKKKKEKKKRKEKKKKKKKKE 


F4A6: 
F4A9: 
F4AB: 
F4AD: 
F4AE: 
F4AF: 


20 
A9 
85 
68 
68 
4c 


8C F4 
00 
B9 


B5 F5 


JSR 
LDA 
STA 
PLA 
PLA 
JMP 


$F48C 
# $00 
* $B9 


SF5B5 
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Read last block in burst mode 


Invert clock low/high signal 

Get byte from bus (block-byte #) 
In Z-P byte number loop counter 
Invert clock low/high signal 
Read block from disk &process 
Error in memory addr, then RTS 
Put EOF marker code in acc 
Kernal SETMSG: Set sys status 


Clock high on bus and close file 


Clock high signal on serial bus 
Enable all system interrupts 

Get logical file number in acc 
Set carry flag for CLOSE routine 
Kernal CLOSE: Close file 

Set marker for OK 

Return from subroutine 


General "Load error" exit 


Err code for timeout during read 
Kernal SETMSG: Set sys status 
Clock high on bus and close file 
Delete the RTS return address 
From the stack 

Error # for BASIC error: LOAD 
Set marker for error found 
Return from subroutine 


Exit for STOP key interruption 


Clock high on bus and close file 
Set zero-page pointer for current 
Secondary address to #0 

Delete the RTS return addr from 
The stack 

Routine: Exit via break key 
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KKK KARR K RAKE KK KKK EKER KARR Exit for error in memory address 


F4B2: 20 8C F4 JSR S$F48C Clock high on bus and close file 
F4B5: 68 PLA Delete the RTS return addr from 
F4B6: 68 PLA The stack 

F4B7: 4C 97 F6 JMP $F697 To output of I/O error #10 


KKKKKKKKKKKK KKK RK KKEKEKE KKK Read a data byte in burst mode 


F4BA: AQ 08 LDA # $08 Set control bit for bus interrupt 
F4BC: 2C 0D DC BIT S$DCOD Read interrupt control register 
F4BF: FO FB BEQ $F4BC And wait for serial bus interrupt 
F4Cl: AD OC DC LDA _ s$pcoc Read CIA data buff from ser bus 
F4C4: 60 RTS Return from subroutine 


RKKKKKKKKAKKEKRKRK RK KK EKER KEKE Read data block in burst mode 


F4C5: AQ 08 LDA # $08 Set conrol bit for bus interrupt 
F4C7: 2C 0D DC BIT S$DCOD Read interrupt control register 
F4CA: FO FB BEQ $F4C7 And wait for serial bus interrupt 
F4cc: AC 0C DC LDY $pc0c Read CIA data buff from ser bus 
F4CF: AD 00 DD LDA S$DDO0 Read data port A of CIA 2, 
F4D2: 49 10 EOR # $10 invert the clock signal 

F4D4: 8D 00 DD STA $DD00 accordingly, & write to port A 
F4D7: 98 TYA Copy data buffer into acc 

F4D8: A4 93 LDY * $93 Test Z-P LOAD/VERIFY pointer 
F4DA: FO 12 BEQ S$F4EE For $00 it's a LOAD routine 
F4Dc: 85 BD STA * SBD Store data byte for verify operat. 
F4DE: AO 00 LDY # $00 Displace pointer for FETCH rout 
F4E0: 20 C9 F7 JSR S$F7C9 FETCH rout for LSV operations 
F4E3: C5 BD CMP * SBD Compare data byte with memory 
F4E5: FO OA BEQ $F4F1 Both equal, then OK &continue 
F4E7: A9 10 LDA # $10 Not equal, then set error marker 
F4E9: 2057 F7 JSR $F757 Kernal status: Set system status 
F4EC: DO 03 BNE SF4F1 Skip STASH rout (for LOAD) 
F4EE: 20 BF F7 JSR $F7BF STASH rout for LSV operations 
F4F1: E6 AE INC * SAE Inc low value for I/O operations 
F4F3: DO 08 BNE $F4FD No overflow occurred, skip 
F4F5: E6 AF INC * SAF Increment high value of I/O addr 
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F4F7: 
F4F9: 
F4FB: 
F4FD: 
FA4FF: 
F501: 
F502: 


A5 
c9 
FO 
cé 
DO 
18 
60 


* SAF 
# SFF 
$F502 
* SA5 
SF4C5 


KRKKKEKKEKKKKEKKEKEKKEKKKKKKKEKKKKKKE 


F503: 
F506: 
F508: 
F50B: 


AD 00 DD 


49 


8D 00 DD 


60 


10 


LDA 
EOR 
STA 
RTS 


$DD00 
# $10 
$DD00 


KHKKKEKKEKKEKKKEKKEKKEKKEKKEKKKKKKKKKK 


F50C: 


1F 30 55 


REKKKKKEKKKKKEKEKKKEKKKEKKKKKKKKKK 


F50F: 
F511: 
F513: 
F515: 
F518: 
F51A: 
F51c: 
F5S1E: 


A5 
10 
AQ 
20 
A5 
FO 
AQ 
20 


9D 
1F 
oc 
22 F7 
B7 
16 
17 
22 F7 


* $9D 
$F532 
# $0C 
$F722 
* $B7 
$F532 
# $17 
$F722 
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Check if the high value of I/O 
Addr points to sys vector table 
Yes, then invalid & skip to RTS 
Decrement data byte counter 
Loop until all bytes read 

Set marker for "everything OK" 
Return from subroutine 


Invert clock signal on port A 


Read data port A of CIA 2, 
invert clock signal and 
Write back to port A 
Return from subroutine 


Control sequence to disk in 
reverse order. Send 
U0;CHR$(31) 


<CHR$(31)> <0> <U> 


Output control msg 
SEARCHING FOR <filename> 


Pointer if ctrl messages allowed 
Not allowed, then return 
Displacement to SEARCHING 
Output system/control message 
Get length of filename in acc 
Length equal 0, then return 
Displacement to "FOR" text : 
Output system/control message 


Abacus Software C-128 Internals 





KKK KA KKK KR KKK RR K KKK KKK RRR KR AK Output filenames 

F521: A4 B7 LDY * $B7 Get length of current filename 
F523: FO OD BEQ $F532 Length = 0, then skip 

F525: AO 00 LDY # $00 Init displacement to filenames 
F527: 20 AE F7 JSR $F7AE Get 1 byte of filename 

F52A: 20 D2 FF JSR S$FFD2 Kernal BSOUT: Output a char 
F52D: C8 INY Incr. displ. to start of filename 
F52E: C4 B7 ‘CPY * $B7 Compare with length of filename 
F530: DO F5 BNE $F527 Not equal, then next character 
F532: 60 RTS Return from subroutine 


KKK KKK KK KKK KAKKKEKRERKK KKK KKK Output LOADING/VERIFYING 


F533: AO 49 LDY # $49 Displacement to LOADING text 
F535: AS 93 LDA * $93 Get Load-Verify mark from Z-P 
F537: FO 02 BEQ $F53B If load (0), then output 

F539: AO 59 LDY # $59 Displacement to "Verify" text 
F53B: 4C 1E F7 JMP SF71E Output system/control message 
KHKKKKKKKKKKKKKKKKKKKKEKRERKEKKKER Kernal routine: SAVESP 


Save a memory range 


F53E: 86 AE STX * SAE Store low addr of "store to" 
F540: 84 AF STY * SAF Store high addr of "store to" 
F542: AA TAX Z-P addr of "store from" in X 
F543: B5 00 LDA * $00,X Get Z-P addr "from" low value 
F545: 85 Cl STA * $Cl and store in "store from" low 
F547: B5 01 LDA * $01,X Get Z-P addr "from" high value 
F549: 85 C2 STA * $C2 And store in "store from" high 
F54B: 6C 32 03  JMP ($0332) vector to SAVESP ($F54E) 
F54E: A5 BA LDA * SBA Load device address in acc 
F550: C9 01 CMP # $01 Is output device the Datassette? 
F552: FO 74 BEQ SF5C8 Yes, then in cassette save routine 
F554: C9 04 CMP # $04 Device address less than 4? 
F556: BO 09 BCS S$F561 No, then skip error message 
F558: 4C 94 F6 JMP SF694 I/O error #9 (Illegal device #) 
F55B: 4C 91 F6 JMP S$F691 1/O error #8 (Missing filename) 
F55E: 4C 85 F6é JMP SF685 I/O error #4 (File not found) 
F561: A4 B7 LDY * $B7 Length of filename in Y-reg 


370 


Abacus Software 


C-128 Internals 





F563: FO F6 BEQ S$F55B 
F565: A9 61 LDA # $61 
F567: 85 B9 STA * S$B9 


F569: 20 CB FO JSR $FOCB 
F56C: 20 BC F5 JSR $F5BC 
FS6F: A5 BA LDA * SBA 
F571: 20 3E E3 JSR $E33E 


F574: A5 B9 LDA * $B9 
F576: 20 D2 E4 JSR $E4D2 
F579: AO 00 LDY # $00 


F57B: 20 51 ED JSR $ED51 


F57E: 20 03 E5 JSR $E503 


F581: AS AD LDA * SAD 
F583: 20 03 E5 JSR $E503 
F586: 20 B7 EE JSR $EEB7 
F589: BO 10 BCS $F59B 
F58B: 20 CC F7 JSR $F7CC 
F58E: 20 03 ES JSR $E503 
F591: 20 El FF JSR $FFE1 
F594: FO 1F BEQ $F5B5 
F596: 20 Cl EE JSR $EEC1 


F599: DO EB BNE SF586 
F59B: 20 26 ES JSR $E526 
F59E: 24 B9 BIT * $B9 
F5A0: 30 11 BMI $F5B3 
F5A2: AS BA LDA * SBA 
F5A4: 20 3E E3 JSR $E33E 
F5A7: A5 B9 LDA * $B9 
F5A9: 29 EF AND # SEF 
F5AB: 09 EO ORA # SEO 


FSAD: 20 D2 E4 JSR $E4D2 
F5B0: 20 26 ES JSR $E526 
F5B3: 18 CLC 
F5B4: 60 RTS 


KKKKKKKKKKEKKKKKKKKEKKKKKKKKKKKK 


F5B5: 20 9E F5 
F5B8: A9 00 


JSR $F59E 
LDA # $00 


Length=0, output I/O error 8 
Secondary address to Print/Write 
In z-page storage for sec. addr 
Test length and sec. address 

If allowed, output SAVING 
Load device address in acc 

Rout LISTN: cmd to serial bus 
Load secondary address in acc 
Rout SECND:sec addr for Listn 
Set Y-reg to 0 as displacement 
Copy start addr from C1,C2 to 
AD,AC 

Rout CIOUT: Byte to serial bus 
Store start address high value 
Rout. CIOUT: Byte to serial bus 
Subtr.: Start address - End addr 
End address reached, then exit 
Place start address in FETVEC 
Rout. CIOUT: Byte to serial bus 
Kernal STOP: Test STOP key 
If pressed, interrupt SAVESP 
Incr. start addr ($AC,$AD) by 1 
Overflow in high byte, then exit 
Rout UNLSN: cmd to serial bus 
Test bit 7 of secondary address 
If bit 7 is set, then skip 

Load device address in acc 

Rout LISTN: cmd to serial bus 
Load secondary address in acc 
Get lower nibble of SA 

Send via above CLOSE to dev. 
Rout SECND:sec. addr for Listn 
Rout UNLSN:cmd to serial bus 
Set indicator for OK 

Return from subroutine 


SAVESP exit via break 


Close write channel to device 
Load acc with $00 as marker 
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$$$ eeetennnneosine secs 


F5BA: 
F5BB: 


38 
60 


KREEKKEKKKKKKKKKKKKEKKEKKKKKKKKKEKK 


F5BC: 
F5BE: 
F5CO0: 
F5C2: 
F5C5: 


AS 
10 
AQ 


9D 


37 


51 


20 22 FT 
4c 21 F5 


LDA 
BPL 
LDY 
JSR 
JMP 


* $9D 
SF5F7 
# $51 
$F722 
$F521 


REKKKKKKEKKKKKKKEKKKKKKKKKKKKKKK 


F5C8: 
F5CB: 
F5CD: 
F5D0: 
F5D2: 
F5D5: 
F5D7: 
F5D9: 
F5DB: 
F5DD: 
F5DF: 
F5E0: 
F5E3: 
F5E5: 
F5E8: 
F5EA: 
F5EC: 
F5EE: 
F5F0: 
F5F2: 
F5F5: 
F5F6: 
F5F7: 


20 
90 
20 
BO 
20 
A2 
A5 
29 
DO 
A2 
8A 
20 
BO 
20 
BO 
A5 
29 
FO 
AQ 
20 
24 
18 
60 


80 
8B 
E9 
25 
BC 
03 
B9 
01 
02 
01 


19 
12 
18 
0D 
B9 
02 
06 
05 
19 


E9 


E9 


F5 


E9 


EA 


E9 


JSR 
BCC 
JSR 


JSR 


$E980 
SF558 
SE9E9 
SF5F7 
SF5BC 
# $03 
* $B9 
# $01 
SF5DF 
# $01 


$E919 
SF5F7 
$EA18 
SF5F7 
* SB9 
# $02 
SFSF6 
# $05 
$E919 


-Byte $24 


CLC 
RTS 
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Set carry for break/error ind. 
Return from subroutine 


Check if SAVING control 
message can be printed 


Test if control message allowed 
Not allowed, then return 

Displ. to SAVING in Y-reg 
Output "SAVING" message 
And output filename: RTS 


Save routine for datasette 


Cass buffer pointer in X+Y reg 
Page 0,1 not allowed: I/O err #9 
Wait for "record & play" keys 
STOP, then interrupt 

If allowed, output "SAVING" 
Header type3=ML prg (absolute) 
Load secondary address in acc 
Test if bit 0 set 

Yes, then machine language prg 
Header type 1= BASIC program 
Copy header type in acc 

And write header to tape 

Exit, if stop key pressed 

Save program to cassette 

Exit, if stop key pressed 

Load secondary address in acc 
Check if bit 1 set 

Not set, then "OK" exit 

Code for EOT control byte in acc 
And write block to tape 

Skip to $F5F7 

Set indicator for "OK" 

Return from subroutine 
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KKKKKKKKKKKKKKEKKKKKKKKKEKKKKK KK Kernal routine: UDTIM 

Update the internal 24-hour 

clock 
F5F8: E6 A2 INC * SA2 Low byte of 24 hr sys clock +1 
F5FA: DO 06 BNE $F602 No overflow, skip correction 
F5FC: E6 Al INC * $Al Middle byte of 24 hr sys clk +1 
F5FE: DO 02 BNE $F602 No overflow, skip correction 
F600: E6 AO INC * $A0 High byte of 24 hr sys clock +1 
F602: 38 SEC Set carry for subtraction 
F603: A5 A2 LDA * $A2 The appropriate values are 
F605: E9 01 SBC # $01 checked by subtraction to see if 
F607: A5 Al LDA * $Al Internal 24-hr system clock is set 
F609: E9 1A SBC # $1A To the clock time 24.00.00 in 
F60B: A5 AO LDA * $A0 the bytes $A0-$A1-$A2 
F60D: E9 4F SBC # $4F In this case the 3 bytes must be 
F60F: 90 08 BCC $F619 Reinitialized 
F611: A2 00 LDX # $00 24-hour sys clock to 00.00.00 
F613: 86 AO STX * SAO Z-P byte for system clock High 
F615: 86 Al STX -* SA1 Z-P byte for sys clock Middle 
F617: 86 A2 STX * SA2 Z-P byte for system clock Low 
F619: AD 1D 0A LDA $0A1D Check temp storage 24hr clk low 
F61C: DO 0B BNE SF629 Not zero, then only low value -1 
F61E: AD 1E 0A LDA SOA1E Check temp storage 24hr clk mid 
F621: DO 03 BNE $F626 Not zero, only low and mid -1 
F623: CE 1F 0A DEC $O0AI1F Temp storage 24hr clk high -1 
F626: CE 1E 0A DEC SOA1E Temp storage 24hr clk mid -1 
F629: CE 1D 0A DEC $0A1D Temp storage 24hr clock low -1 
F62C: 2C 03 0A BIT $0A03 Test PAL / NTSC pointer 
F62F: 10 0C BPL $F63D NTSC system if "plus" 
F631: CE 36 0A DEC S$0A36 Raster line line-pointer -1 . 
F634: 10 07 BPL $F63D Not yet zero, then skip init. 
F636: A9 05 LDA # $05 Sys ptr for raster line at which 
F638: 8D 36 0A STA S$0A36 Int. is generated is init. w/ 5 
F63B: DO BB BNE $F5F8 Uncond. jump to new UDTIM 
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KRRKKKKKKKKKEKKKEKKKKEKKKKKKKK KKK 


F63D: 
F640: 
F643: 
F645: 
F646: 
F648: 
F64A: 
F64D: 
F650: 
F653: 
F655: 
F658: 
F659: 
F65B: 
F65D: 


EC 
DO 
8D 
E8 
DO 
85 
60 


01 
01 
F8 


13 
BD 
00 
01 
01 
F8 
00 


02 
91 


Dc 
DC 


DC 
DC 
Dc 


Dc 


$DCc01 
$DC01 
SF63D 


SF65B 
# SBD 
$DC00 
$Dc01 
$pc01 
SF64D 
$DC00 


SF65D 
* $91 


KREKKKKKKEKKEKKKKKKEKKRKEKKKKKKKKKE 


F65E: 
F65F: 
F661: 
F663: 


78 
A5 


A2 


A6 Al 


A4 


AO 


SEI 
LDA 
LDX 
LDY 


* SA2 
* $Al 
* $A0 


KREKKKKKEKKKKKKEKKKKKKKKKKKKKKKKK 


F665: 
F666: 
F668: 
F66A: 
F66C: 
F66D: 


78 
85 
86 
84 
58 
60 


A2 
Al 
AO 


SEI 
STA 
STX 
STY 
CLI 
RTS 


* SA2 
* SAl 
* $A0 


374 


Keyboard row selection to 
For RUN/STOP & SHIFT keys 


Read port B for keyboard matrix 
And wait 


Keyboard code to X-reg and 
Skip if RUN/STOP pressed 
Bit map for SHIFT row select 
In port A for matrix line select 
Port B for keyboard matrix cols 
Read and wait 


In port A for matrix line select 
Increment value by 1 

Neither shift key, skip 

Z-P STOP/reset RVS pointer 
Return from subroutine 


Kernal routine: RDTIM 
Read 24-hour system clock 


Disable all system interrupts 
Zero-page byte for sys clock low 
Zero-page byte for sys clock mid 
Z-P byte for system clock high 


Kernal routine: SETTIM 
Set 24-hr system clock 


Disable system interrupts 
Zero-page byte for sys clock low 
Zero-page byte for sys clock mid 
Z-P byte for system clock high 
Enable system interrupts 

Return from subroutine 
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F66E: 
F670: 
F672: 
F674: 
F675: 
F678: 
F67A: 
F67B: 


A5 
cg 
DO 
08 
20 
85 
28 
60 


91 
TE 
07 


CC FF 
DO 


LDA 
CMP 
BNE 
PHP 
JSR 
STA 
PLP 
RTS 


* $91 
# S7F 
$SF67B 


SFFCC 
* $D0 


KRKEKKKKKKKKKKKEKKKEKKKKKKKKKKKKKK 


F67C: 
F67E: 
FO67F: 
F681: 
F682: 
F684: 
F685: 
F687: 
F688: 
F68A: 
F68B: 
F68D: 
F68E: 
F690: 
F691: 
F693: 
F694: 
F696: 
F697: 
F699: 
F69A: 
F69D: 
F69F: 
F6Al1: 
F6A3: 
F6A6: 


A9 
2c 
A9 
2c 
A9 
2c 
AQ 
2c 
AQ 
2C 
A9 
2c 
A9 
2c 
AQ 
2c 
AQ 
2c 
AQ 
48 
20 
AO 
24 
50 
20 
68 


01 


02 


03 


04 


05 


06 


07 


08 


09 


10 


CC FF 


00 


9D 


OA 
22 F7 


LDA 


# $01 


-Byte $2C 


LDA 


# $02 


-Byte $2C 


LDA 


# $03 


-Byte $2C 


LDA 


# $04 


-Byte $2C 


LDA 


# $05 


-Byte $2C 


LDA 


# $06 


-Byte $2C 


LDA 


# $07 


-Byte $2C 


LDA 


# $08 


-Byte $2C 


LDA 


# $09 


-Byte $2C 


LDA 
PHA 
JSR 
LDY 
BIT 
BVC 
JSR 
PLA 


# $10 


SFFCC 
# $00 
* $9D 
SF6AD 
$F722 
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Kernal routine: STOP 
Test for pressed STOP key 


Get Z-P storage for stop flag 
Was STOP key pressed? 

No, return with equal flag 0 
Save status equal flag 

Krnl CLRCH: Reset I/O chnils 
Clear Z-P keyboard buffer pntr 
Get status of equal flag 

Return from subroutine 


Output I/O error message 


1/O error #1 (Too many files) 
Skip to $F681 

V/O error #2 (File open) 

Skip to $F684 

I/O error #3 (File not open) 
Skip to $F687 

I/O error #4 (File not found) 
Skip to $F68A 

1/O error #5 (Device not present) 
Skip to $F68D 

I/O error #6 (Not input file) 
Skip to $F690 

I/O error #7 (Not output file) 
Skip to $F693 

I/O error #8 (Missing filename) 
Skip to $F696 

1/O error #9 (Illegal device #) 
Skip to $F699 

1/O error #10 

Store I/O error code on stack 
Krnl CLRCH: Reset I/O chnls 

Displacement to I/O err message 
Check if sys messages allowed 
Not allowed, then exit 

Rout: output sys/ctrl messages 
Get error code number in acc 
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F6A7: 48 PHA 
F6A8: 09 30 ORA # $30 
F6AA: 20 D2 FF JSR SFFD2 
F6AD: 68 PLA 
F6AE: 38 SEC 
F6AF: 60 RTS 


KKKKKKEKKKEKKKKKKKKKKKKKKKKKKK 


F6BO0: OD 49 2F 4F 20 45 52 
F6B8: 4F 52 20 A3 

FCBC: OD 53 45 41 52 43 48 
F6C4: 4E 47 AO 

F6C7: 46 4F 52 AO 

F6CB: OD 50 52 45 53 53 20 
F6D3: 4C 41 59 20 4F 4E 20 
F6DB: 41 50 C5 

F6DE: 50 52 45 53 53 20 52 
F6E6: 43 4F 52 44 20 26 20 
F6EE: 4C 41 59 20 4F 4E 20 
F6F6: 41 50 C5 

F6F9: OD 4C 4F 41 44 49 4E 
F701: OD 53 41 56 49 4E 47 
F709: OD 56 45 52 49 46 59 
F711: 48 C7 

F713: OD 46 4F 55 4E 44 AO 
F71A: OD 4F 4B 8D 


KKKKKKKKEKKKKKEKEKKEKKKKKKKKKKE 


F71E: 24 9D BIT # $9D 
F720: 10 OD BPL S$F72F 
F722: B9 BO F6 LDA SF6BO 
F725: 08 PHP 
F726: 29 7F AND # $7F 
F728: 20 D2 FF JSR $SFEFD2 
F72B: C8 INY 
F72C: 28 PLP 
F72D: 10 F3 BPL $F722 
F72F: 18 CLC 


xk 


52 
49 
50 
54 
45 
50 
54 
C7 


AO 
49 


kk 


7 
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And store on stack 

Create ASCII value of error code 
Kernal BSOUT: Output a char 
Delete error code from stack 

Set carry flag as marker 

Return from subroutine 


Table of sys & control messages 
Offset to start in parentheses 


<Cr> I/O ERROR #($00) 
<Cr> SEARCHING($0C) 


FOR ($17) 
<Cr>PRESS PLAY ON TAPE 
($1B) 


PRESS RECORD & PLAY ON 
TAPE ($2E) 


<Cr> LOADING ($49) 
<Cr> SAVING ($51) 
<Cr> VERIFYING ($59) 


<Cr> FOUND ($63) 
<Cr> OK <Cr> ($6A) 


Output system/control messages 


Check if output allowed 

No, then exit 

Read byte from message table 
And store on stack 

Mask out bit 7, no RVS chara 
Kernal BSOUT: Output a char 
Set displ. to next character 
Get character from stack 

Bit 7 set is end marker 

Clear carry as "output" marker 


Abacus Software 


F730: 60 RTS 
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F731: 85 B7 STA * $B7 
F733: 86 BB STX * SBB 
F735: 84 BC STY * SBC 
F737: 60 RTS 


KEKKKKKKKKKKKKKKEKKKKKKKKKKKKKK 


F738: 85 B8 STA * $B8 
F73A: 86 BA STX * SBA 
F73C: 84 B9 STY * $B9 
F73E: 60 RTS 


RKEKKKKKKKKKKKKEKKKKKKKKKKKKKKKK 


F73F: 85 Cé STA * $C6 
- F741: 86 C7 STX * $C7 
F743: 60 RTS 


KRKEKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


F744: AS BA LDA * SBA 
F746: C9 02 CMP # $02 
F748: DO OB BNE $F755 
F74A: AD 14 OA LDA $0A14 
F74D: 48 PHA 
F74E: A9 00 LDA # $00 
F750: 8D 14 OA STA $0A14 
F753: 68 PLA 
F754: 60 RTS 
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Return from subroutine 


Kernal routine: SETNAM 
Set parameters for filename 


Z-P byte for length of filename 
Z-P byte for filename addr low 
Z-P byte for filename addr high 
Return from subroutine 


Kernal routine: SETLFS 
Set the logical file parameters 


Z-P byte for logical file number 
Z-P byte for device address 
Z-P byte for secondary address 
Return from subroutine 


Kernal routine: SETBNK 


Bank num for current LSV call 
Bank num for current filename 
Return from subroutine 


Kernal routine: READST 
Read system status word 


Load device address in acc 
RS-232 addressed 

No, then get normal status 
Get RS-232 status 

And store on stack 

Load acc with $00 in RS-232 
Bring status as evrything OK 
Get RS-232 status from stack 
Return from subroutine 
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F755: A5 90 LDA * $90 
F757: 05 90 ORA * $90 
F759: 85 90 STA * $90 
F75B: 60 RTS 


KRHEKKKKEKKEKKKKKKKKKKKKKKKKKKKKKK 


F75C: 85 9D STA 
F75E: 60 RTS 


* $9D 


RKEKKEKKKKKKKKKKRKKKKKKEKKKKKRKKKKK 


F75F: 8D OE OA STA SO0AQE 
F762: 60 RTS 


KKKKKEKKKKEKKEKKKKKKKEKKKKKKKKKKEKK 


F763: 90 06 BCC SEF76B 
F765: AE 07 OA LDX $0A07 
F768: AC 08 OA LDY $0A08 
F76B: 8E 07 OA STX $0A07 
F76E: 8C 08 OA STY $0A08 


F771: 60 RTS 


KREKKKKKKKKKKEKKEKKKKEKKEKKEKKKKKKEKEK 


F772: 90 06 BCC SFT77A 
F774: AE 05 OA LDX $0A05 
F777: AC 06 OA LDY $0A06 
F77A: 8E 05 OA STX $0A05 
F77D: 8C 06 OA STY $0A06 
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Match status to system status 


Get system STATUS in acc 
Combine acc with system status 
Put in zero page for status 
Return from subroutine 


Kernal routine: SETMSG 
Allow system/control messages 


Z-P byte for system/control msg 
Return from subroutine 


Kernal routine: SETTMO 
In order to allow timeout in 
IEEE bit 7 in acc to 1 


Acc contents in IEEE timeout 
flag. Return from subroutine 


Kernal routine: MEMTOP 
Set the upper memory end 
pointer 


Carry 0 = set / Carry 1 = read 
Low addr RAM end in sys bank 
High addr RAM end in sys bank 
Low addr RAM end in sys bank 
High addr RAM end in sys bank 
Return from subroutine 


Kernal routine: MEMBOT 
Set the lower memory end 
pointer 


Carry 0 = set / Carry 1 = read 
Low addr RAM start in sys bank 
Hi addr RAM start in sys bank 
Low addr RAM start in sys bank 
Hi addr RAM start in sys bank 
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F780: 60 RTS 


KKEKKKKKKKKKKKKKKKKKKKEKEKKKKKKEKK 


F781: A2 00 LDX # $00 
F783: AO DO LDY # $D0 
F785: 60 RTS 


KREKKKKKEKKKKKKKEKKKKEKRKKKKKKKKKKK 


F786: 98 TYA 

F787: A6 98 LDX * $98 
F789: CA DEX 

F78A: 30 OF BMI SF79B 
F78C: DD 76 03 CMP $0376,X 
F78F: DO F8 BNE SF789 


F791: 20 12 F2 JSR §$F212 


F794: AA TAX 
F795: AS B8 LDA * SB8 
F797: A4 BY LDY * $B9 
F799: 18 CLC 
F79A: 60 RTS 


KRRKKKKKKKKKKKEKEKKKKKKEKKKKKKKKKE 


F79B: 38 SEC 
F79C: 60 RTS 


KREKKKKKKKKKKKEKKKKKKKKKKKKKKKKK 


F79D: AA TAX 

F79E: 20 02 F2 JSR $F202 
F7A1: FO EE BEQ $F791 
F7A3: DO F6 BNE SE79B 
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Return from subroutine 
Kernal routine: IOBASE 


Pass address low of I/O range 
Pass address high of I/O range 
Return from subroutine 


Kernal routine: LKUPSA 
Search in SA table for SA 


Put the SA to search for in acc 
Get number of open files 
Decrement by 1, used as index 
All comparisons negative, exit 
Cmp with hi byte from SA table 
Not found, next comparison 
Get LFN,DA,SA from table 
correspomding to X 

Copy found DA into X 

Get logical file number in acc 
Get secondary address in Y 
Carry clear = marker for found 
Return from subroutine 


Exit from LKUPSA if not found 


Carry set = marker for not found 
Return from subroutine 


Kernal routine: LKUPLA 
Search in LFN table for LFN 


Store LFN value to search in X 
Set status OK, search LEN table 
Found, update the z-page, exit 
Not found, exit with err marker 
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KRHAEKKKKKKKEKKKKKKEKKEKKKKKKKKKKKKK 


F7A5S: 
F7A8: 
F7AA: 
F7AB: 


BD FO F7 
29 FE 
AA 

4C FO 03 


LDA $F7F0,X 


AND # SFE 
TAX 
JMP $03F0 


KKKKKKKKEKKKKKKKKKKKKKKKKKKKKKK 


F7AE: 
F7B1: 


F7B3: 
F7B5: 


F7B8: 
F7BB: 


8E 35 0A 
Aé6 C7 


A9 BB 
20 DO F7 


AE 35 OA 
60 


STX $0A35 
LDX * $C7 


LDA # $BB 
JSR $F7D0 


LDX $0A35 
RTS 


KREKKKKKKKEKKKKEKKEKKKKEKKKKKKKKKK 


F7BC: 
F7BE: 
FUBF: 
F7C1: 
F7C4: 
F7C6: 


A2 AC 
2c 

A2 AE 

8E B9 02 
A6 C6 

4C DA F7 


LDX # SAC 
-Byte $2C 
LDX # SAE 
STX $02B9 
LDX * $C6 
JMP SF7DA 


KRAKKKKEKKEKKKKKKKKEKKKEKKKKKKEKKKKKEE 


F7C9: 
F7CB: 
F7CC: 
F7CE: 


A9 AE 
2c 

AQ AC 
A6 C6 


LDA # SAE 
-Byte $2C 
LDA # SAC 
LDX * $C6 
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Kernal routine: DMA-CALL 


Get x indexed value-config table 
Mask out bit 0 -I/O, D000-DFFF 
Copy config value to X-reg 
Jump to low bank DMA routine 


FETCH for chars from filename 


Store contents of X-reg 

Bank # for current filename 
(BB,BC) 

Put in acc $BB for FETVEC 
Rout. INDFET: 
LDA(fetvec), Y any bank 

Get old contents of X-reg back 
Return from subroutine 


STASH routine for LSV 
operations 


Pointer to LSV I/O addr 1 (lo) 
Skip to $F7C1 

Pointer to LSV I/O addr 2 (lo) 
Put contents X-reg in STATVEC 
Bank # of the current LSV call 
Rout. INDSTA: 

STA(stavec),Y any bank 


FETCH routine for LSV 
operations 


Pointer for LSV I/O addr 1 (lo) 
Skip to $F7CE 

Pointer to LSV I/O addr 2 (1o) 
Bank # of current LSV calls 
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KEKKKKKKKKKKKKKKKKKKKKKKKKKKKE 


F7D0: 
F7D3: 
F7D6: 
F7D7: 


8D AA 02 
BD FO F7 
AA 

4C A2 02 


STA 
LDA 
TAX 
JMP 


SO2AA 
SF7F0,X 


$02A2 


KKEKKKKKKKKKKKKEKKKKKKRKKKKKKKKKK 


F7DA: 
F7DB: 
F7DE: 
FU7DF: 
F7E0: 


48 
BD FO F7 
BA 
68 
4C AF 02 


PHA 
LDA 
TAX 
PLA 
JMP 


SF7F0,X 


SO2AF 


KKKKKKKKKKKEKKKKKKKKKKKKKKKKKKK 


F7E3: 
F7E4: 
F7E7: 
F7E8: 
F7E9: 


48 
BD FO F7 
AA 
68 
4C BE 02: 


PHA 
LDA 
TAX 
PLA 
JMP 


SF7F0O,X 


$02BE 


KRKEKKKKKEKKKKKKKKKKEKKKKEKKKKKKKE 


F7EC: 
F7EF: 


BD FO F7 
60 


LDA 
RTS 


SF7F0,X 
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Preparation for FETCH routine 


Place acc contents in FETVEC 
Load config value determined 
By X from table and to X-reg 

FETCH Rout.: LDA any bank 


Preparation for STASH routine 


Store acc contents for STA cmd 
Load config value determined 
By X from table and to X-reg 
Load acc contents for STA cmd 
STASH rout. :STA in any bank 


Preparation of CMPFAR routine 


Store acc contents for compare 
Get the config value determined 
by X from the table 

Get acc contents for compare 
CMPARE routine: CMP with 
any bank 


Kernal routine: GETCFG 
Load X with defined config 
value 


Load X with defined config 
value. Return from subroutine 
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KAKKKKKEKRKKEKKKKEKKEKKKEKKKEKKKKKKKKK 


FT7FO: 
FT7F1: 
F7F2: 
FUF3: 
FUF4: 


FU7F5: 
FT7F6: 
FU7F7: 
FT7F8: 


FT7F9: 
F7FA: 
F7FB: 
F7FC: 
FU7FD: 
FT7FE: 
FUFF: 


3F (3 
TE (% 
BF (3 
FF (% 
16 (3 
56 (% 
96 (% 
D6 (% 
2A (% 
6A (% 
AA (3 
EA (3 
06 (% 
OA (% 
01 (% 
00 (3 


0011 1111) 
0111 1111) 
1011 1111) 
1111 1111) 
0001 0110) 


0101 0110) 
1001 0110) 
1101 0110) 
0010 1010) 


0110 1010) 
1010 1010) 
1110 1010) 
0000 0110) 
0000 1010) 
0000 0001) 
0000 0000) 


KRKEKKKKKKEKEKKKKKKEKKKEKKKKKEKKKKKE 


F800: 
F803: 
F806: 
F807: 
F809: 
F80C: 


AD 00 FF 
8E 00 FF 
AA 

Bl FF 

8E 00 FF 
60 


LDA $FFOO 
STX S$FFOO 
TAX 


LDA (SFF),Y 


STX S$FFOO 
RTS 


KKKKKKKKKKKKEKKEKKKEKKKEKKKKKKKKKK 


F80D: 
F80E: 
F811: 
F814: 
F815: 


LDA $FFOO0 
STX S$FFOO 
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Configuration table for 
all "far" operations 


Bit 0: O= I/O area $D000-$DFFF 
1 =RAM/ROM area 
Bit 1: 0=ROM in $4000 - $7FFF 
1 = RAM in $4000 - $7FFF 
Bit 3,2: 00 = System ROM 
$8000-$BFFF 
01 = Internal function ROM 
10 = External function ROM 
11 = RAM area 
Bit 5,4: 00 = System ROM 
$C000-$FFFF 
01 = Internal function ROM 
10 = External function ROM 
11 = RAM area 
Bit 7,6: 00 = RAM bank 0 
01 = RAM bank 1 
10 = RAM bank 2 (bank 0) 
11 = RAM bank 3 (bank 1) 


ROM copy of FETCH routine 
($02A2) 


Save current config value in A 
Set new config value via X 
Transfer old value to X 

!!! LDA (Fetvec) ,Y 

Restore old configuration 
Return from subroutine 


ROM copy of STASH routine 
($02 AF) 


Save acc contents for STA 
Save current config value in A 
Set new config value via X 
Transfer old value to X 

Get the STA value back 
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F816: 91 FF STA (SFF),Y 
F818: 8E 00 FF STX $FFO00 
F81B: 60 RTS 


KKKKKKEKKEKKKKKKKKKKKKEKKKKKKKKKE 


F81c: 48 PHA 

F81D: AD 00 FF LDA S$SFFO0O0 
F820: 8E 00 FF STX S$FFOO 
F823: AA TAX 

F824: 68 PLA 

F825: Dl FF CMP (SFF),Y 
F827: 8E 00 FF STX SFFOO 
F82A: 60 RTS 


KKKEKKKKKKKKKKEKKKKKKKKKKKKKKKKK 


F82B: 20 E3 02 JSR $02E3 
F82E: 85 06 STA * $06 
F830: 86 07 STX * $07 
F832: 84 08 STY * $08 
F834: 08 PHP 

F835: 68 PLA 

F836: 85 05 STA * $05 
F838: BA TSX : 
F839: 86 09 STX * $09 
F83B: A9 00 LDA # $00 
F83D: 8D 00 FF STA $FFO0 
F840: 60 RTS 


KREKKKKKKKKKEKKKKKKKKKKEKKKKKKKKE 


F841: A2 00 LDX # $00 
F843: B5 03 LDA * $03,X 
F845: 48 PHA 

F846: E8 INX 

F847: EO 03 CPX # $03 
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!!! STA (Stavec) ,Y 
Restore old config value 
Return from subroutine 


ROM copy of CMPARE routine 
($02BE) 


Save comparison value for CMP 
Save current config value in A 
Set new config value via X 
Transfer old value to X 

Get CMP comparison value back 
!!! CMP (Cmpvec) ,Y 

Restore old config 

Return from subroutine 


ROM copy of JSRFAR routine 
($02CD) 


JMPFAR rout.:JMP to any bank 
Save acc in Z-P acc storage 
Save X-reg in Z-P X-reg storage 
Save Y-reg in Z-P Y-reg storage 
Save processor status on stack 
Get status in acc 

And save in Z-P status storage 
Stack pointer via X 

Save in Z-P stack ptr storage 
Load configuration reg with $00 
And enable all system ROMs 
Return from subroutine 


ROM copy of JMPFAR routine 
($02E3) 


In this loop, the values placed in 
Zero page (bytes $03-$04-$05) 
for the program counter and 
processor status are placed on t 
the stack. They are required for 
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F849: 90 F8 BCC $F843 the RTI at the end of the routine 
F84B: A6 02 LDX * $02 Load bank pntr for config displ. 
F84D: 20 6B FF JSR $FF6B Kernal GETCFG: config value 
F850: 8D 00 FF STA $FFOO from table. Set config register 
F853: A5 06 LDA * $06 Get zero-page acc storage 
F855: A6 07 LDX * $07 Get zero-page X-reg storage 
F857: A4 08 LDY * $08 Get zero-page Y-reg storage 
F859: 40 RTI Jump to prg counter address 


KAKKKKKKKKKKKKEKRKERKERKEK KEK KA Copy of routine in ($03F0) 


F85A: AE 00 FF LDX S$FFOO Get configuration regi in X-reg 
F85D: 8C 01 DF STY S$DFO1 Set DMA controller ctrl register 
F860: 8D 00 FF STA S$FFOO Load config register with acc 
F863: 8E 00 FF STX $FFO00 Load config register with X-reg 
F866: 60 RTS Return from subroutine 


KAKKKKKKKKKKKK KKK R KER KKERKEEREKK Kernal routine: PHOENIX 
Old cold-start routines 


F867: 78 SEI Disable system interrupts 
F868: A2 03 LDX # $03 Initialize bank and displ. pntrs 
F86A: 8E CO 0A SsTX $0ACO For external card to #3 
F86D: AE CO 0A LDX $0ACO Get displacement pntr in X-reg 
F870: BD Cl OA LDA $0AC1,X Check ID table for cart. spaces 
F873: FO 11 BEQ $F886 Table entry = 0: not "logged in" 
F875: AO 00 LDY # $00 Set entry address low to $00 
F877: BD BC E2 LDA S$E2BC,X Get entry addr high from table 
F87A: 85 03 STA * $03 Store entry addr high in PC hi 
F87C: 84 04 sTY * $04 Store entry address low in PC lo 
F87E: BD CO E2 LDA S$E2C0,X Get bank value from bank table 
F881: 85 02 STA * $02 Store it in Z-P bank storage 
F883: 20 CD02 JSR $02CD JSRFAR rout.: JSR to any bank 
+RTS 
F886: CE CO 0A DEC S$0ACO Dec. displacement pointer by 1 
F889: 10 E2 BPL S$F86D Check all 4 cartridge areas 
F88B: 58 CLI Enable system interrupts 
F88C: A2 08 LDX # $08 Device addr for boot-load (8) 
F88E: A9 30 LDA # $30 Load acc with character <0> 
F890: 85 BF STA * SBF Zero-page byte for serial buffer 
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F892: 86 BA STX * SBA Set device address for disk 8 
F894: 8A TXA ‘Copy device addr (8) into acc 
F895: 20 3D F2 JSR $F23D Set standard I/O devices 

F898: A2 00 LDX # $00 Init. length cntr for boot-load 
F89A: 86 OF STX * SOF Filename with #0 

F89C: 86 C2 STX * $C2 Set sector # for boot load ($00) 
F89E: E8 INX ' Increment init. counter by 1 
F89F: 86 Cl sTx * $Cl Set track # for boot load ($01) 
F8Al: C8 INY Increment Y loop register by 1 
F8A2: DO FD BNE $F8A1 Loop 256 times, until reg is zero 
F8A4: E8 INX Increment X loop register by 1 
F8A5: DO FA BNE $F8A1 Loop 256 times, until reg is zero 
F8A7: A2 0C LDX # $0C Displace pointer for DOS buffer 


F8A9: BD 08 FA LDA $FA08,X Get char of DOS BOOT cmd 
F8AC: 9D 00 01 STA $0100,xX And copy into DOS string buffer 


F8AF: CA DEX Dec. displacement pointer by 1 
F8B0: 10 F7 BPL $F8A9 Loop until 13 chars transferred 
F8B2: A5 BF LDA * SBF Get drive # from Z-P storage 
F8B4: 8D 06 01 STA $0106 And put in DOS buffer 
F8B7: A9 00 LDA # $00 Bank # for current LSV call 
F8B9: A2 OF LDX # SOF Bank # for current filename 
F8BB: 20 3F F7 JSR $F73F Routine SETBNK: Bank for 
LSV+filename 
F8BE: A9 01 LDA # $01 Set length of filename to 1 
F8CO: A2 15 LDX # $15 Addr low of filename (=FA15) 
F8C2: AO FA LDY # SFA Addr of high filename ("I") 
F8C4: 20 31 F7 JSR $F731 Routine SETNAM: Set filename 
F8C7: A9 00 LDA # $00 Logical file number in acc (0) 
F8C9: AO OF LDY # SOF Secondary addr in Y-reg 
F8CB: A6 BA LDX * $BA Set device addr in X-reg 
F8CD: 20 38 F7 JSR $F738 Routine SETLFS: Set file param 
F8D0: 20 CO FF JSR _ $FFCO Kernal OPEN: Open file 
0,8,15,"T" 
F8D3: BO 16 BCS S$F8EB Error encoutnered, end boot load 
F8D5: AQ 01 LDA # $01 Set length of filename to 1 
F8D7: A2 16 LDX # $16  Addrlowof filename (=FA16) 
F8D9: AO FA LDY # SFA Add high of filename (''#") 
F8DB: 20 31 F7 JSR $F731 Routine SETNAM: Set filename 
F8DE: A9 0D LDA # SOD Logical file number in acc (13) 
F8EO: A8 TAY And set as sec. address (13) 
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i ee 


F8E1: A6 BA LDX * $BA Get device address in X-reg 

F8E3: 20 38 F7 JSR $F738 Routine SETLFS: Set file param 

F8E6: 20 CO FF JSR $FFCO Kernal OPEN: open file 
13,8,13,"#" 

F8E9: 90 03 BCC SF8EE All clear, then continue boot load 

F8EB: 4C 8B F9 JMP $F98B Initialize disk, then RTS 

F8EE: A9 00 LDA # $00 Initialize the 2-byte zero-page 

F8FO: AO 0B LDY # $0B Pointer ($AC-$AD) with the 

F8F2: 85 AC STA * SAC Start address of the 

F8F4: 84 AD STY * SAD System cassette buffer ($0B00) 

F8F6: 20 D5 F9 JSR $F9D5 Load start sctr 01 00 in cass buff 

F8F9: A2 00 LDX # $00 Clear loop and displ. pointer 


F8FB: BD 00 0B LDA $0B00,X Check the first 3 bytes of the 
F8FE: DD C4 E2 CMP S$E2C4,X Start sector read from the disk 


F901: DO E8 BNE $F8EB Into the cassette buffer for the 
F903: E8 INX Auto-start code (<C><B><M>). 
F904: EO 03 CPX # $03 If found, then it is a boot prgm 
F906: 90 F3 BCC $F8FB 

F908: 2017 FA JSR $FA17 Kernal PRIMM: Output string 


KKK KKK KKK KKK RK KK KK KKAKK KKK KEK Kernal constant for BOOTING 
message 


F9O0B: OD 42 4F 4F 54 49 4E 47 <CR> <B> <O> <O> <T> <I> <N> <G> 
F913: 20 00 <space> 


KHRKKKKKKKKKK KKK KK KKKKKEKKEKKKKKK Set pointer and boot status 


F915: BD 00 0B LDA $0B00,xX Get 4 address load pointers from 


F918: 95 AQ STA * $A9,X BOOT sector at address $0B03 
F91A: E8 INX and init. the 2 zero-page address 
F91B: EO 07 CPX # $07 Pointers in $AC-$AD/ $AE-$AF 
F91D: 90 F6 BCC $F915 Loop until pointers are loaded 
F91F: BD 00 0B LDA _ $0B00,X Get output char from cass buffer 
F922: FO 06 BEQ $F92A The value $00 is the end marker 
F924: 20 D2 FF JSR $FFD2 Kernal BSOUT: Output a char 
F927: E8 INX Incr displ. to cassette buffer by 1 
F928: DO F5 BNE $F91F Uncond. jump to char output 
F92A: 86 9E STX * $9E Store displ. to cassette buffer 
F92Cc: 2017 FA JSR S$FA17 Kernal PRIMM: Output string 
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KKKKKKK KKK KEK KEKKEK KK KER KE KEKKKEKE BOOTING message constants 


F92F: 2E 2E 2E 0D 00 <.> <.> <.> <CR> 

KKKK KKK KKK KK RR RK KKK KEK KKK KEK BOOT routine 

F932: 0D 00 A5 ORA $A500 Bank pntr BOOT sector in bank 
F935: AE 85 C6 LDX $C685 Copy pointer for STASH routine 
F938: A5 AF LDA * SAF Get cntr for #of BOOT blocks 
F93A: FO 09 BEQ S$F945 All BOOT blocks read, then exit 
F93C: C6 AF DEC * SAF Decr. boot block counter by 1 
F93E: 20 B3 F9 JSR $F9B3 Load next track/sector from disk 
F941: E6 AD INC * $AD Increment load addr high by 1 
F943: DO F3 BNE $F938 Jump to read next block 

F945: 20 8B F9 JSR S$F98B Initialize disk to BOOT 

F948: A6 9E LDX * $9E Displacement to cassette buffer 
F94A: 2C .Byte $2C Skip to $F94D 

F94B: E6 9F INX * $9F Incr. filename length counter 
F94D: E8 INX Set displ. to char after 0 code 
F94E: BD 00 0B LDA $0B00,X Get char after 0 code (filename) 
F951: DO F8 BNE $F94B Not zero, continue read 

F953: E8 INX Set displ. to char after 0 code 
F954: 86 04 STX * $04 And place in PC lo pointer 
F956: A6 9E LDX * $9E Displ. to char before filename 
F958: AQ 3A LDA # $3A Replace 0 with <:> 

F95A: 9D 00 0B STA $0B00,X And put in front of filename 
F95D: CA DEX Set displ. to character before <:> 
F95E: A5 BF LDA * SBF ASCII character of drive spec 
F960: 9D 00 0B STA $0B00,X Put <0:xxxx> front of filename 
F963: 86 9E STX * S9E Save low address of filename 
F965: A6 OF LDX * $9F Get length of filename 

F967: FO 15 BEQ $F97E No filename present, then skip 
F969: E8 INX Incr. filename length ptr by 2 
F96A: E8 INX Because <0:> included in count 
F96B: 8A TXA Copy length of filename to A 
F96C: A6 9E LDX * $9E Get address low of filename 
F96E: AO 0B LDY # $0B Set address high of filename 
F970: 20 31 F7 JSR $F731 Routine SETNAM: Set filename 
F973: A9 00 LDA # $00 Initialize acc & X-reg with $00 
F975: AA TAX for the SETBNK routine 
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F976: 20 3F F7 JSR $F73F Routine SETBNK: bank for 
LSV+filename 

F979: A9 00 LDA # $00 Set acc as "LOAD" marker 

F97B: 20 69 F2 JSR $F269 Jump to kernal LOAD vector 

F97E: A9 OB LDA # $0B Set the Z-P storage for PC hi 

F980: 85 03 STA * $03 To $0B (cassette buffer) 

F982: A9 OF LDA # SOF Set the Z-P pointer to the value 

F984: 85 02 STA * $02 $OF (system ROM) 

F986: 20 CD 02 JSR $02cD JSRFAR rout.: JSR bank +RTS 

F989: 18 CLC _ Clear carry for OK indicator 

F98A: 60 RTS Return from subroutine 


KKKKKKKKKKKKKKKKK KKK KKK KKKK Floppy init. for BOOTING 


F98B: 08 PHP Save processor status on stack 
F98C: 48 PHA Save acc contents on stack 
F98D: 20 CC FF JSR $FFCC Kernal CLRCH: Reset I/O chnls 
F990: A9 OD LDA # SOD Close logical file number (13) 
F992: 18 CLC Set carry to "everything OK" 
F993: 20 C3 FF JSR S$FFC3 Kernal CLOSE: Close file 
F996: A2 00 LDX # $00 Set logical file (0) to output 
F998: 20 C9 FF JSR $FFC9 Kernal CKOUT: Set output chnl 
F99B: BO OA BCS $F9A7 If error, then close again 

F99D: AQ 55 LDA # $55 Load acc with character <U> 
FO9F: 20 D2 FF JSR $FFD2 Kernal BSOUT: Output a char 
F9A2: AQ 49 LDA # $49 Load acc with character <I> 
F9A4: 20 D2 FF JSR S$FFD2 Kernal BSOUT: Output a char 
F9A7: 20 CC FF JSR $FFCC Kernal CLRCH: Reset I/O chnls 
F9AA: AQ 00 LDA # $00 Close logical file number (0) 
F9AC: 38 SEC Set carry to "everything OK" 
F9AD: 20 C3 FF JSR $FFC3 Kernal CLOSE: Close file 
F9BO: 68 PLA Get acc contents from stack 
F9B1: 28 PLP Get old processor status 

F9B2: 60 RTS Return from subroutine 
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KK KKAKKAK KK KRK KEK KKK KKK KERR KE RK Reset track and sector in DOS 
output buffer and load sectpr 


F9B3: A6 C2 LDX * $C2 Get sector # from z-page storage 
F9B5: E8 INX Increment sector by 1 

F9B6: EO 15 CPX # $15 Check for valid sector number 
F9B8: 90 04 BCC S$F9BE Sector # less than 21, then OK 
FOBA: A2 00 LDX # $00 Load value for sector number 0 
F9BC: E6 Cl INC * $cl Increment track number by 1 
F9BE: 86 C2 STX * $C2 Reset zero-page sector number 
F9CO: 8A TXA Copy sector number in acc an 
F9C1: 20 FB F9 JSR $F9FB Convert sector to 2-byte ASCII 
F9C4: 8D 00 01 STA $0100 Put sector # low in DOS buffer 
F9C7: 8E 0101 sSTX $0101 Put sector # high in DOS buffer 
FOCA: A5 Cl LDA * $Cl Load acc with track # from Z-P 
F9CC: 20 FB F9 JSR $F9FB Convert track to 2-byte ASCII 
FOCF: 8D 03 01 STA $0103 Put track # low in DOS buffer 
F9D2: 8E 04 01 STX $0104 Put track # high in DOS buffer 
F9D5: A2 00 LDX # $00 Set logical file #0 fro CKOUT 
F9D7: 20 C9 FF JSR $FFC9 Kernal CKOUT: Set output chnl 
FO9DA: A2 0C LDX # $0C Output 13 char from DOS buffer 
F9DC: BD 00 01 LDA $0100,X Get 1 char from DOS output buf 
FODF: 20 D2 FF JSR $FFD2 Kernal BSOUT: Output a char 
F9E2: CA DEX Loop counter to DOS buffer -1 
F9E3: 10 F7 BPL $F9DC Loop until 13 characters output 
F9E5: 20 CC FF JSR $FFCC Kernal CLRCH: Reset I/O chnls 
F9E8: A2 OD LDX # $0D Set logical file (13) to input 
F9EA: 20 C6 FF JSR $FFC6 Kernal CHKIN: Set input chnl 
F9ED: AO 00 LDY # $00 Displ. for STASH routine to #0 
F9EF: 20 CF FF JSR $FFCF Kernal BASIN: Read a character 
F9F2: 20 BC F7. JSR $F7BC STASH routine for LSV operat. 
FOF5: C8 INY Incr. STASH displ. pointer by 1 
FO9F6: DO F7 BNE $F9EF Loop until 256 bytes read 

FOF8: 4C CC FF JMP S$FFCC Kernal CLRCH: Reset I/O chnls 
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FOFB: 
F9FD: 
FOFE: 
FAOO: 
FAO2: 
FAO3: 
FAQS: 
FAO7: 


A2 
38 
B9 
90 
E8 
BO 
69 
60 


30 


OA 
03 


F9 
3A 


# $30 


# SOA 
$FA05 


SFOFE 
# $3A 


KKEKKKKKRKEKKEKEKKKKKEKKKKKEKKKKKKKKK 


FAOS8: 
FA10: 


30 30 20 31 30 20 30 20 
33 31 3A 31 55 49 23 


RHEKKKKKEKKKKKEKRKKKEKKKKKKKKKKKKKK 


FA17: 
FA18: 
FA19: 
FAIA: 
FAB: 
FAIC: 
FALE: 
FAIF: 
FA22: 
FA24: 
FA27: 
FA2A: 
FA2C: 
FA2F: 
FA31: 
FA33: 
FA35: 
FA38: 
FA3A: 


48 
8A 
48 
98 
48 
AO 
BA 
FE 
DO 
FE 
BD 
85 
BD 
85 
Bl 
FO 
20 
90 
68 


00 


04 
03 
05 
04 
CE 
05 
CF 
CE 
05 
D2 
E4 


01 


01 
01 


01 


FF 


PHA 
TXA 
PHA 
TYA 
PHA 
LDY 
TSX 
INC 
BNE 
INC 
LDA 
STA 
LDA 
STA 
LDA 
BEQ 
JSR 
BCC 
PLA 


# $00 


$0104,X 


$FA27 


$0105,X 
$0104,X 


* SCE 


$0105,X 


* SCF 


($CE) ,Y 


SFA3A 
SFFD2 
SFALE 
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Process acc contents as 2-byte 
ACSI(X=hi,A=lo) (only to#99) 


ASCII value for char <0> to X 
Set carry for subtraction 
Subtract dec 10 from acc 

Carry clear, then underflow, exit 
Increment ASCII hi char by 1 
Unconditional jump 

Underflow, create ASCII lo 
Return from subroutine 


Kernal constant for 
BOOT-LOAD 


<0> <0> < > <1> <0><><0><> 
<3> <1> <:> <1l> <U> <I> <#> 


Kernal routine: PRIMM 
Output the test following JSR 


Store acc contents on stack 

Save current X-reg contents on 
Stack via acc 

Save current Y-reg contents on 
Stack via acc 

Load displacement pntr with $00 
Load stack pointer into X 

Lo byte of RTS addr in stack+1 
No overflow, skip 

Hi byte of RTS addr in stack +1 
Put lo byte of RTS addr in stack 
In Z-P (for post-indexed addr) 
Put hi byte of RTS addr in stack 
In Z-P (for post-indexed addr) 
Get byte from RTS addr + Y-reg- 
$00 = end marker, then exit rout 
Kernal BSOUT: Output char 

No error, then next character 
Get a byte from the stack and 
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FA3B: 
FA3C: 
FA3D: 
FA3E: 
FA3F: 


A8 
68 
AA 
68 
60 


TAY 
PLA 
TAX 
PLA 
RTS 


KRKKKKKKKEKKEKKKEKKEKKKKKKKKKKKKKK 


! 


FA40: 
FA41: 
FA43: 
FA46: 
FA49: 
FA4B: 
FA4E: 
FA51: 
FA53: 
FA56: 
FA59: 
FASC: 
FASF: 
FA62: 


D8 
A9 
8D 
AC 
30 
20 
20 
DO 
20 
20 
20 
6C 
20 
4c 


TE 
0D 
0D 
14 
3D 
El 
0c 
56 
09 
00 
00 
05 
33 


DD 
DD 


F6 
FF 


E0 
El 
co 
OA 
E8 
FF 


CLD 
LDA 
STA 
LDY 
BMI 
JSR 
JSR 
BNE 


# S7F 
$DDOD 
$DDOD 
SFA5F 
$F63D 
SFFE1 
SFA5F 
SE056 
$E109 
$c000 


($0A00) 


$E805 
SFF33 


KRREKKKKEKKEKKKEKEKKKKKKRKKKKEKKKKKKKK 


FA65: 
FA66: 
FA69: 
FAG6B: 
FA6E: 
FA71: 
FA74: 
FAT7: 
FA78: 
FATA: 
FA7D: 


D8 
20 
90 
20 
20 


24 
12 
F8 
DO 
0D 
04 


03 
06 
33 


co 


F5 
EE 
DC 
OA 


40 
FF 


CLD 
JSR 
BCC 
JSR 
JSR 
LDA 
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Restore old contents of Y-reg 
Get a byte from the stack and 
Restore old contents of X-reg 
Restore old acc contents 
Return from subroutine 


NMI routine 


Reset decimal mode 

Set NMI marker 

Clear NMI possibility 

Read and clear flags 

Check if RS-23 is active 

Read shift RUN/STOP 

Kernal STOP: Test STOP key 
Not pressed, then skip I/O init 
Stand.vctrs for I/O+ interrupt 
Initialize /O 

Init YO and clear screen 

BASIC warm-start-entry ($4003) 
Jump to NMI rout. for RS-232 
Return to the IRQ calling routine 


IRQ routine 


Reset decimal mode 

Entry to editor IRQ routine 
Exit IRQ for raster interrupt 
Rout. UDTIM:Set 24hr clk 
Check recorder-keyboard 

Get CIA interrupt control reg. 
Get sy NMI/reset status pointer 
Check if bit 0 is cleared 

Yes, then back to IRQ routine 
BASIC IRQ entry 

Return to the IRQ calling routine 
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KRKKKKKKKKKKKKKKKKRKAKKKKKKKKKKR Keybaord decoder table 1a 
ASCII character set normal 


FA80: 14 OD 1D 88 85 86 87 11 
FA88: 33 57 41 34 5A 53 45 01 
FA90: 35 52 44 36 43 46 54 58 
FA98: 37 59 47 38 42 48 55 56 
FAAO: 39 49 4A 30 4D 4B 4F 4E 
FAA8: 2B 50 4C 2D 2E 3A 40 2C 
FABO: 5C 2A 3B 13 01 3D 5E 2F 
FAB8: 31 5F 04 32 20 02 51 03 
FACO: 84 38 35 09 32 34 37 31 
FAC8: 1B 2B 2D 0A OD 36 39 33 
FADO: 08 30 2E 91 11 9D 1D FF 
FAD8: FF 


KKRKKKKKK KKK KK KK KKKKKKKKKKKRKKK Keyboard decoder table 2a 
ASCII character set with shift 


FAD9: 94 8D 9D 8C 89 8A 8B 91 
FAB1: 23 D7 Cl 24 DA D3 C5 01 
FAB9: 25 D2 C4 26 C3 C6 D4 D8 
FAF1: 27 D9 C7 28 C2 C8 D5 D6 
FAF9: 29 C9 CA 30 CD CB CF CE 
FBO1: DB DO CC DD 3E 5B BA 3C 
FB09: A9 CO 5D 93 01 3D DE 3F 
FB11: 21 5F 04 22 AO 02 D1 83 
FB19: 84 38 35 18 32 34 37 31 
FB21: 1B 2B 2D OA 8D 36 39 33 
FB29: 08 30 2E 91 11 9D 1D FF 
FB31: FF 


KKKKKKKKKKKKKEKK KKK RKKKKKKKKKKE Keyboard decoder table 3a 
ASCII character set with C= 


FB32: 94 8D 9D 8C 89 8A 8B 91 
FB3A: 96 B3 BO 97 AD AE Bl 01 
FB42: 98 B2 AC 99 BC BB A3 BD 
FB4A: 9A B7 AS 9B BF B4 B8 BE 
FB52: 29 A2 B5 30 A7 Al BY AA 
FB5A: A6 AF Bé DC 3E 5B A4 3C 
FB62: A8 DF 5D 93 01 3D DE 3F 
FB6A: 81 5F 04 95 AO 02 AB 03 
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FB72: 84 38 35 18 32 34 37 31 
FB7A: 1B 2B 2D 0A 8D 36 39 33 
FB82: 08 30 2E 91 11 9D 1D FF 
FB8A: FF 


KKKKKKKE KK KKK KK KKK KEK KKK KKERKKE Keyboard decoder table 4a 
ASCII character set with CTRL 


FB8B: FF FF FF FF FF FF FF FF 
FB93: 1C17 01 9F 1A 13 05 FF 
FB9B: 9C 12 04 1E 03 06 14 18 
FBA3: 1F 19 07 9E 02 08 15 16 
FBAB: 12 09 OA 92 OD OB OF OE 
FBB3: FF 10 0C FF FF 1B 00 FF 
FBBB: 1C FF 1D FF FF 1F 15 FF 
FBC3: 90 06 FF 05 FF FF 11 FF 
FBCB: 84 38 35 18 32 34 37 31 
FBD3: 1B 2B 2D OA 8D 36 39 33 
FBDB: 08 30 2E 91 11 9D 1D FF 
FBE3: FF 


KK KKKKKKKKEKKKKKKKKEKKKKEKRKKKKEK Keyboard decoder table 5a 


ASCII character set with ALT 
FBE4: 14 0D 1D 88 85 86 87 11 
FBEC: 33 D7 Cl 34 DA D3 C5 01 
FBF4: 35 D2 C4 36 C3 C6 D4 D8 
FBFC: 37 D9 C7 38 C2 C8 D5 D6 
FC04: 39 C9 CA 30 CD CB CF CE 
FCOC: 2B DO CC 2D 2E 3A 40 2c 
FC14: 5C 2A 3B 13 01 3D 5E 2F 
FC1C: 31 5F 04 32 20 02 51 03 
FC24: 84 38 35 09 32 34 37 31 
FC2C: 1B 2B 2D 0A 0D 36 39 33 
FC34: 08 30 2E 91 11 9D 1D FF 
FC3C: FF 
KKKKKKKKKKAEKKKKKKKKKKKKRKKKK KKK Free area 
FC3D: FF FF FF. 
FC7D: ‘|. . . FF FF FF 
FFEF: . . .FF FF FF Free area U.S. Versions 


393 


Abacus Software 


C-128 Internals 


$s SRS 


RAKKKKKKKKKKKKEKKKKKKEKKEKKKKKKKKR 


KRHEKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


FC80: 
FC83: 
FC86: 


8D C5 OA 


8D 
60 


18 D4 


STA 
STA 
RTS 


S0AC5 
$D418 


KRHKKKKKKKKKKKKEKKEKKEKKEKKKKKKKKKK 


FC87: 
FC8A: 
FC8C: 
FC8E: 
FC90: 
FC92: 
FC95: 
FC97: 
FC99: 
FC9B: 
FC9D: 
FC9F: 
FCA2: 
FCA4: 
FCA6: 
FCA8: 


C5 0A 
37 
D3 
10 
0D 
3F 03 
FD 
2A 
34 
FE 
0B 
3F 03 
FA 
1D 
6F 
co 


$0Ac5 
$FCC3 
* $D3 
# $10 
SFCOF 
$033F 
# SED 
SFCC3 
# $34 
# SFE 
SFCAA 
$033F 
# SFA 
$FCC3 
# SOF 
# $CO 


KKKKKKKKKKKKKKKKKKKKEKKKKKKKKKK 


FCAA: 
FCAC: 
FCAE: 
FCBO: 
FCB2: 
FCB5: 


85 
84 
AO 
Bl 
99 
88 


cc 
cD 
0B 
cc 
3E 03 


STA 
STY 
LDY 
LDA 
STA 
DEY 


* SCC 
* $CD 
# SOB 


($CC) ,Y 
$033E,Y 
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International models only 
used to load International 
character sets 


Clear SID registers and edit 
pointers 


Clear sys accent mode flag(A=0) 
Clear SID volume register 
Return from subroutine 


Entry to kernal routine: KEY 
International models only 


Test bit 7 of accent-mode flag 
Bit 7 set, construct accent 
Get current SHIFT pattern in acc 
Test bit 4 for ASCII-DIN switch 
If ASCII char set selected, skip 
Test, if the high addr of the first 
Decodertable points to DIN set 
Yes, then OK and skip 
Load X and A as pointers for the 
Vctr table to DIN decoder table 
Uncond. jump to load routine 
Test if the high addr of the first 
Decoder table points to ASCII 
set. Yes, then OK and skip 
Load X and A as pointers for the 
Vect table - ASCII decoder table 


Reset table set vector 
International models only 


Save pointer to vector table low 
Save pointer to vector table high 
Loop counter for 6 vectors 

Get byte from ROM vector table 
Store it in the system vector table 
Decrement vector loop counter 
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FCB6: 10 F8 BPL $FCBO Loop until 6 vectors copied 
FCB8: C8 INY Count Y-reg back up to zero 
FCB9: 8C C5 0A SsTY $0AC5 And clear the accent-mode flag 
FCBC: 08 PHP Store processor status on stck 
FCBD: 78 SEI Disable system interrupts 
FCBE: 20 0C CE JSR $CEOC Kernal routine: DLCHR 
FCC1: 28 PLP Get processor status back: CLI 
FCC2: 60 RTS Return from subroutine 


KHKKKKHKKKKKKRKKKKRKKKRKEKERE KEKE Check the accent keys and 
generate combine accent 
International models only 


FCC3: 4C 5D C5 JMP §$c55D Routine: read keyboard matrix 
FCC6: AE 3F 03 LDX $033F Check if the high addres of first 
FCC9: EO FD CPX # SFD Decoder table points to DIN set 
FCCB: DO 55 BNE $FD22 No, skip: Store keypress 

FCCD: AE C5 0A LDX S$0AC5 Check system accent-mode flag 
FCDO: 30 50 BMI $FD22 Bit 7 set, store keypress 

FCD2: FO 1D BEQ $FCF1 No accent set, then skip 

FCD4: BC 45 FE LDY SFE45,X Get value from combin. table 
FCD7: CA DEX Decrement table value by 1 
FCD8: 88 DEY Displacement table -1 

FCD9: 48 PHA Save character code on stack 
FCDA: 98 TYA Get displace from table in acc 
FCDB: DD 45 FE CMP $FE45,X Compare with combination table 
FCDE: 68 PLA Get character code from stack 
FCDF: 90 08 BCC $FCE9 Combin. table searched, skip 
FCE1: D9 4A FE CMP S$FE4A,Y Is it a combination character? 
FCE4: DO F2 BNE $FCD8 Continue searching comb. table 
FCE6: B9 65 FE LDA $FE65,Y Get character from table 

FCE9: 48 PHA Store character code from stack 
FCEA: 29 7F AND # $7F Mask out bit 7, not RVS char 
FCEC: C9 20 cMP # $20 Compare to space/shift space 
FCEE: 68 PLA Get char code back from stack 
FCEF: 90 23 BCC $FD14 Compare < $20: disable ctrl char 
FCF1: A2 05 LDX # $05 Loop counter for accent table 
FCF3: DD 3F FE CMP $FE3F,X Compare char with accent table 
FCF6: FO 03 BEQ $FCFB Character found in table, exit 
FCF8: CA DEX Decrement loop counter by 1 
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FCF9: DO F8 BNE S$FCF3 Loop until all comp. performed 
FCFB: 8E C5 0A SsTX $0AC5 Store displ. 

FCFE: EO 00 CPX # $00 Displ. = #0, no accent present 
FD00: FO 20 BEQ $FD22 If zero, then store keypress 
FDO2: A8 TAY Copy character code in Y-reg 
FD03: 24 F6 BIT * $F6 Check if the auto-insert mode is 
FDO05: 30 OD BMI $FD14 Enabled. No, then RTS 

FDO7: 24 D7 BIT * $D7 Check 40/80-column pointer 
FDO9: 10 OA BPL $FD15 40-column screen active, skip 
FDOB: A2 0A LDX # SOA Load X-reg with # of VDC reg 
FDOD: 20 DACD JSR SCDDA Read corresponding VDC reg 
FD10: 29 40 AND # $40 Check current cursor mode 
FD12: DO 06 BNE $FD1A If flash mode, output character 
FD14: 60 RTS Return from subroutine 


KKKKKKAKKK KKK KKK ARK KKKKEKRKRRERERE Output constructed accent 
International models only 


FD15: AD 27 0A LDA $0A27 Check cursor on/off pointer 
FD18: DO FA BNE $FD14 Value not=0: Cursordisable;RTS 
FD1A: 98 TYA ‘Get character code back in acc 
FD1B: 09 40 ORA # $40 Set bit 6 in character code 

FD1D: 29 7F AND # S7F Mask bit 7, not RVS character 
FDIF: 4C 2F CC JMP $CC2F Output char at cursor position 
FD22: A6 D3 LDX * $D3 Get SHIFT pattern in X-reg 
FD24: A4 D5 LDY * $D5 Flag for pressed key in Y-reg 


FD26: 6C 3C 03 JMP ($033C) Vector: Store keypress ($C6AD) 


KARKKRKKRKERKKKEKKEKKEKEKKKEKKKERKKA Keyboard decoder table 1b 
DIN charr set normal, Ctrl, Alt 
International models only 


FD29: 14 OD 1D 88 85 86 87 11 
FD31: 33 57 41 34 59 53 45 01 
FD39: 35 52 44 36 43 46 54 58 
FD41: 37 5A 47 38 42 48 55 56 
FD49: 39 49 4A 30 4D 4B 4F 45 
FD51: BE 50 4C AF 2E BC BD 2C 
FD59: 5B 2B BB 13 01 23 5D 2D 
FD61: 31 3C 04 32 20 02 51 03 
FD69: 84 38 35 09 32 34 37 31 
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FD71: 1B 2B 2D OA OD 36 39 33 
FD79: 08 30 2E 91 11 9D 1D FF 
FD81: FF 


KKKKKKRK RAK KKK KKK KR RRR KKK KEK Keyboard decoder table 2b 
DIN character set with shift 
International models only 


FD82: 94 8D 9D 8C 89 8A 8B 91 
FD8A: 40 D7 Cl 24 D9 D3 C5 01 
FD92: 25 D2 C4 26 C3 Cé D4 D8 
FD9A: 2F DA C7 28 C2 C8 D5 Dé 
FDA2: 29 C9 CA 3D CD CB CF CE 
FDAA: 3F DO CC CO 3A DC DD 3B 
FDB2: 5E 2A DB 93 01 27 5C 5F 
FDBA: 21 3E 04 22 AO 02 D1 83 
FDC2: 84 38 35 18 32 34 37 31 
FDCA: 1B 2B 2D 0A 8D 36 39 33 
FDD2: 08 30 2E 91 11 9D 1D FF 
FDDA: FF 


KKKKAKKRAK KKK KKK RK KERR KKK KEKE Keyboard decoder table 3b 
DIN character set with C= 
International models only 


FDDB: 94 8D 9D 8C 89 8A 8B 91 
FDE3: 96 A7 A8 97 A2 AA A3 O01 
FDEB: 98 A9 C4 99 C5 D3 CE A4 
FDF3: 9A C2 DF 9B Al C9 D6 D7 
FDFB: D1 C3 D5 Cl CB DA D8 CD 
FEO3: AB D9 C8 BF BA CA BO AC 
FEOB: AD A6 DB 93 01 DD DE B9 
FE13: 81 Bl 04 95 AO 02 Ad 03 
FE1B: 84 38 35 18 32 34 37 31 
FE23: 1B 2B 2D 0A 8D 36 39 33 
FE2B: 08 30 2E 91 11 9D 1D FF 
FE33: FF 
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KKKKKKKKKKKKKEKKKKKKKKKKKKKKKER 


FE34: 
FE36: 


FE38: 
FE3A: 
FE3C: 
FE3E: 


29 FD ($FD29) 
82 FD ($FD82) 
DB FD ($FDDB) 
8B FB ($FB8B) 
29 FD  ($FD29) 
29 FD ($FD29) 


RREKKKEKKKKKKKKKKKEKKKKKAKKKKKK KKK 


FE40: 


AF CO BF 00 00 


KKEKKKKKKKKKKKKKKKKKKKKKKKKKKK 


FE45: 


01 03 07 OC OC OC 


REKKKKKKKKKKEKKKKKKKKKKKKKKKKK 


FE4B: 
FE53: 


FE56: 
FE5E: 


45 CO 41 45 55 AF 41 45 
49 4F 55 


FF FF FF FF FF FF FF FF 
FF FF FF FF FF FF FF FF 


KKKKKKKEKKEKEKKEKKEKKEKKKKKKKKKKKKEKE 


FE64: 
FE6C: 


FE71: 


FEFD: 


AC BF B2 AE B3 BF B4 B5 
Bé B7 B8 


FF FF FF FF FF FF FF FF 


FE79: FF FF FF . 
. FF FF FF 
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Pointers to keyboard decoder 
tables 
International models only 


Keyboard decoder table 1b 
Keyboard decoder table 2b 


Keyboard decoder table 3b 
Keyboard decoder table 4a 
Keyboard decoder table 1b 
Keyboard decoder table 1b 


Table of three accent characters 
International models only 


<°><‘ > <*> (last via C=/< >) 


Offset table to combinations 
of combined characters 
International models only 


Table of possible characters for a 
Combined accent character 
International models only 

<E> <‘> <A> <E> <U> <’> <A> <E> 

<I> <O> <U> 


Fill values; not used 


Table of combined accent 
characters 

International models only 
<e’> <‘> <‘a> <e’> <‘u> <‘> <a> <e4> 


<i> <40> <u> 


Fill values; not used 
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KAEKKKKKKEKKKKKKKKKKKEKKKKKKKKKKR 


KKKKKKKKKKKKKKKEKKEKKKEKKKKKKKKKK 


FFOO: 
FFO1: 
FFO2: 
FFO3: 
FFO4: 


00 
3F 
TE 
01 
41 


-Byte $00 
-Byte $3F 
-Byte $7F 
-Byte $01 
-Byte $41 


KKKKKKKKKKKKKEKKKKEKKKKKEKKKKKKKK 


FFO5: 
FFO6: 
FFO7: 
FFO8: 
FFO9: 
FFOA: 
FFOB: 
FFOE: 
FFOF: 
FF11: 
FF14: 


78 
48 
8A 
48 
98 
48 
AD 
48 
Ag 
8D 
6C 


00 FF 


00 
00 FEF 
18 03 


SEI 
PHA 
TXA 
PHA 
TYA 
PHA 
LDA S$FF00 
PHA 
LDA # $00 
STA $FF00 


JMP ($0318) 


KRHKKKKKKKKKKKEKKEKKEKKKKEKKKKKKKKKK 


FF17: 
FF18: 
FF19: 
FF1A: 
FFB: 
FFI1C: 
FFIF: 
FF20: 
FF22: 
FF25: 
FF26: 
FF29: 


48 
8A 
48 
98 
48 
AD 
48 
Ag 
8D 
BA 
BD 
29 


00 FF 


00 
00 FF 


05 01 
10 


PHA 
TXA 
PHA 
TYA 
PHA 
LDA SFFOO 
PHA 
LDA # $00 
STA SFFO0O 
TSX 


LDA $0105,X 


AND # $10 
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American & International 
Versions 

Copy of the configuration 

registers 


Configuration register (CR) 

Load config. register A (LCRA) 
Load config.register B (LCRB) 
Load config. register C (LCRC) 
Load config.register D (LCRD) 


Kernal NMI routine 


Disable all system interrupts 
Store acc contents on stack 
Store current X-reg contents 
On the stack via the acc 

Store current Y-reg contents 
On the stack via the acc 

Get configuration register in acc 
Store configu register on stack 
Load config. register with $00 
And enable system ROMs 
Vector points to NMI routine 
($FA40) 


Kernal IRQ routine 


Store acc contents on stack 
Store current X-reg contents 
On stack via acc 

Store current Y-reg contents 
On stack via acc 

Get configuration register in acc 
Store config value on stack 
Load config.register with $00 
And enable system ROMs 

Put stack pointer in X-reg 

Get the CPU status byte stored 
Get status byte + test break bit 
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i enestessnenesneseeesenens 


FF2B: 
FF2D: 


FF30: 


FF33: 
FF34: 
FF37: 
FF38: 
FF39: 


FF3A: 
FF3B: 
FF3C: 


68 
8D 
68 
A8 
68 
AA 
68 
40 


00 


FF 


BEQ 
JMP 


JMP 


PLA 
STA 
PLA 
TAY 
PLA 
TAX 
PLA 
RTI 


SFF30 
($0316) 


($0314) 


SFFO0 


RRKKKKKKKKKKKKKEKKEKEKKEKKKKEKKKKKK 


FF3D: 
FF3F: 
FF42: 


KREKKKKKEKRKKKKKKEKKKKKKKKKKKKKKKK 


FF45: 


FF46: 


FF47: 


FF4A: 


FF4D: 


FF50: 


FF53: 


FF56: 


FF59: 


A9 


00 


8D 00 FF 
4c 00 E0 


FF 
FF 


4c 


4c 


4c 


4c 


4c 


4c 


4c 


FB 


3D 


4B 


A5 


90 


67 


9D 


E5 


F2 


E2 


F7 


F8 


F8 


F7 


LDA # $00 
STA SFFOO 
JMP $E000 


.Byte $FF 
-Byte SEF 
JMP SESFB 
UMP $F23D 
JMP $E24B 
JMP $F7A5 
JMP SF890 
JMP S$F867 
JMP $F79D 


400 


No break , continue as norm 
Vector points to BRK routine 
($B003) 
Vector points to IRQ routine 
($FA65) 
Get old config value from stack+ 
Restore selected configuration 
Get a byte from the stack and 
Restore old contents of the Y-reg 
Get a byte from the stack and 
Restore old contents of X-reg 
Restore old acc contents 
Return from the interrupt routine 


Kernal RESET routine 

Load config. register with $00 
And enable all system ROMs 
Reset entry 


Kernal vector and entry table 


Pointer to kernal FSTMOD 
Pointer to kernal EAINIT 
Pointer to kernal C64 MODE 
Pointer to kernal DMA-CALL 
Pointer to kernal BOOT-CALL 
Pointer to kernal PHOENIX 


Routine: LKUPLA: 
search for LEN in table 
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FF5C: 4C 86 F7 JMP $F786 Routine: LKUPSA: 

search for SA in table 
FF5F: 4C 2A CO JUMP S$CO2A Pointer to kernal SWAPPER 
FF62: 4C 27 CO  JMP $C027 Pointer to kernal DLCHR 
FF65: 4C 21 C0 JMP $C021 Pointer to kernal PFKEY 
FF68: 4C 3F F7 £JMP SEF73F Rout. SETBNK: 

bank for LSV+filename 
FF6B: 4C EC F7 JMP SFT7EC Pointer to kernal GETCFG 
FF6E: 4C CD 02 JMP $02CD Pointer to kernal JSRFAR 
FF71: 4C E3 02 JMP $02E3 Pointer to kernal JMPFAR 
FF74: 4C DO F7 #£4\JMP S$F7DO Rout. INDFET: 

LDA (fetvec), Y any bank 
FF77: 4C DA F7 #£JMP SFT7DA Rout. INDSTA: 

STA(stavec),Y any bank 
FF7A: 4C E3 F7 £JMP SF7E3 Rout. INDCMP: 

CMP(cmpvec),Y any bank 
FF7D: 4C 17 FA  JMP SFA17 Pointer to kernal PRIMM 
FF80: 00 -Byte $00 
FF81: 4C 00 CO JMP $c000 Pointer to kernal CINT 
FF84: 4C 09 El JMP $E109 Pointer to kernal IOINIT 
FF87: 4C 93 EQ JMP $E093 Pointer to kernal RAMTAS 
FF8A: 4C 56 E0 MP $E056 Pointer to kernal RESTOR 

_FF8D: 4C 5B EO JMP SEOS5B Pointer to kernal VECTOR 

FF90: 4C 5C F7 MP S$F75C Pointer to kernal SETMSG 
FF93: 4C D2 E4 JMP SE4D2 Routine SECND: 

sec addr for LISTN 
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FF96: 


FEF99: 


FF9C: 


FEOF: 


FFA2: 


FFAS: 


FFAS: 


FFAB: 


FFAE: 


FFB1: 


FFB4: 


FFB7: 


FFBA: 


FFBD: 


FFCO: 


FFC3: 


FFC6: 


FFC9: 


FFCC: 


FFCF: 


4C EO E4 


4c 


4c 


4c 


4c 


4c 


4c 


4c 


4c 


4c 


4c 


4c 


4c 


4c 


6C 


6C 


6C 


6C 


6C 


6C 


63 


72 


12 


SF 


3E 


03 


15 


26 


3E 


3B 


44 


38 


31 


1A 


1c 


1E 


20 


22 


24 


F7 


F7 


co 


F7 - 


E4 


E5 


E5 


E5 


E3 


E3 


F7 


F7 


F7 


03 


03 


03 


03 


03 


03 


SE4E0 
$F763 
$F772 
$c012 
SF75F 
SE43E 
$E503 
$E515 
$E526 
$E33E 
$E33B 
SF744 
$F738 
$F731 
($031A) 
($031C) 
($031E) 
($0320) 
($0322) 


($0324) 
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Routine TKSA: 
sec addr for TALK 
Pointer to kernal MEMTOP 


Pointer to kernal MEMBOT 
Pointer to kernal KEY 
Pointer to kernal SETTMO 
Pointer to kernal ACPTR 
Pointer to kernal CLOUT 


Routine UNTLK: 

Untlk cmd to serial bus 
Routine UNLSN: 

Unlsn cmd to serial bus 
Routine LISTN: 

Listn cmd to serial bus 
Routine TALK: 

Talk cmd to serial bus 
Pointer to kernal READST 


Routine SETLFS: 

Set file parameters 

Routine SETNAM: 

Set filename 

Vector points to OPEN routine 
$EFBD 

Vector points to CLOSE routine 
$F188 

Vector points to CHKIN routine 
$F106 

Vector points to CKOUT routine 
$F14C 

Vector points to CLRCH routine 
$F226 ; 

Vector points to BASIN routine 
$EF06 
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FFD2: 6C 26 03 JMP ($0326) Vector points to BSOUT routine 


$EF79 
FFD5: 4C 65 F2 JMP SF265 Routine LOADSP: load file 
FFD8: 4C 3E F5  JMP $F53E Routine SAVESP: save file 
FFDB: 4C 65 F6 JMP SF665 Pointer to kernal SETTIM 
FFDE: 4C 5E F6 JMP SF65E Pointer to kernal RDTIM 
FFE1: 6C 28 03 JMP ($0328) Vector points to STOP routine 
$F66E 
FFE4: 6C 2A 03 JMP ($032A) Vector points to GETIN routine 
$EEEB 
FFE7: 6C 2C 03 JMP ($032C) Vector points to CLALL routine 
$F222 
FFEA: 4C F8 F5  JMP SF5F8 Rout. UDTIM: 
Set internal 24hr clock 
FFED: 4C OF CO JMP SCOOF Pointer to kernal SCRORG 
FFFO: 4C 18 CO JMP $CcC018 Pointer to kernal PLOT 
FFF3: 4C 81 F7 JMP SF781 Pointer to kernal IOBASE 
FFF6: FF .Byte SFF 
FFF7: FF -Byte $FF 
FFF8: 24 E2 ($E224) C128Mode vector 
FFFA: 05 FF (SFF05) NMI vector 
FFFC: 3D FF (SFF3D) Reset vector 
FFFE: 17 FF ($FF17) IRQ vector 
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8.2 The Zero Page 


System variables are stored in zero page. These variables include the 
cursor position, information about the current output device, etc. Two 
hundred and fifty-six bytes sufficed to store all of this information. 


With the C-128 the situation is different, 256 bytes are no longer 
enough to store all of the system information. The name zero page has been 
retained since it has come into such wide usage (zero page actually refers to 
the 256-byte page of memory starting at address zero). 


The zero page offers many possibilities for direct manipulation and 
contains a wealth of information which the programmer can access (and 
which he should access). Since this zero page is so immensely important, 
you will find on the following pages more information on the individual 
memory addresses. This information will be very helpful to you. 


Some addresses in the zero page have meaning only in connection to the 
corresponding routines in the kernal. For this reason it is very important that 
you take a closer look at the appropriate passages in the kernal before 
manipulating the zero page. 
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Commodore-128 Zero page 


KKRKKKKEKKKKK EKER K KK KKK EK KK KKKKEKK EER KKK KKEKKEKKKEEKKKEKKKKKKK 


0000: 0000 6510 data direction - processor port 

0001: 0001 6510 data register - processor port 

0002: 0002 Storage for bank byte 

0003: 0003 Storage for program counter high 

0004: 0004 Storage for program counter low 

0005: 0005 Storage for CPU status register 

0006: 0006 Storage for accumulator 

0007: 0007 Storage for X-register 

0008: 0008 Storage for Y-register 

0009: 0009 Storage for stack pointer 

000A: 0010 Look for quotation mark at end of string 
000B: 0011 Screen column at last TAB 

000c: 0012 Disk flag: O=LOAD, 1=VERIFY 

000D: 0013 Number of elements, input buffer pointer 
OOOE: 0014 Default for array dimensioning (DIM) 
OOOF: 0015 Data-type flag 1:$00=numeric, $FF=string 
0010: 0016 Data-type flag 2:$00=float,$80=fixed pnt 
0011: 0017 Flag: LIST, read DATA, garbage coll. 
0012: 0018 Pntr for FN funct, var type for FOR/NEXT 
0013: 0019 Input-flag: $00=INPUT, $40=GET, $98=READ 
0014: 0020 Sign of TAN: equality by comparison 
0015: 0021 Active I/O device, flag: INPUT comment 
0016: 0022 - 0023 Line number, integer value Lo/High 
0018: 0024 Pointer to temporary string stack 


0019: 0025 - 0026 Last string address 

001B: 0027 - 0029 3-byte stack for temporary strings 

001E: 0030 - 0032 3-byte stack for temporary strings 

0021: 0033 - 0035 3-byte stack for temporary strings 

0024: 0036 - 0037 2-byte help pointer index 1 

0026: 0038 - 0039 2-byte help pointer index 2 

0028: 0040 - 0044 Floating-point result of multiplication 
002D: 0045 - 0046 Pointer: Startof BASIC text Lo/Hi 
002F: 0047 - 0048 Pointer: Start of BASIC variables Lo/Hi 
0031: 0049 - 0050 Pointer: Startof BASIC arrays Lo/Hi 
0033: 0051 - 0052 Pointer: End of BASIC arrays + 1 Lo/Hi 
0035: 0053 - 0054 Pointer: Start of string memory Lo/Hi 
0037: 0055 - 0056 Help pointer for string storage Lo/Hi 
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0039: 0057 - 0058 Pntr: End string memory, Var.Bank 1 Lo/Hi 
003B: 0059 - 0060 Current BASIC line number Lo/Hi 

003D: 0061 - 0062 Pntr BASIC text for CHRGET,CHRGOT Lo/Hi 
003F: 0063 - 0064 PRINT USING pntr,char search pntr Lo/Hi 
0041: 0065 - 0066 Current DATA line number Lo/Hi 

0043: 0067 - 0068 Pointer to current DATA address Lo/Hi 
0045: 0069 - 0070 Vector pointer for INPUT routine Lo/Hi 
0047: 0071 - 0072 Current BASIC variable name Lo/Hi 

0049: 0073 - 0074 Pointer to address of current var. Lo/Hi 
004B: 0075 - 0076 Mask for AND, LIST pntr, FOR NEXT pntr 
004D: 0077 - 0078 Temporary storage for program pointer 
004F: 0079 Mask for compare operation >:2, =:4, <:8 
0050: 0080 - 0081 Var pntr for FN defin., + for garb coll. 
0052: 0082 - 0084 Pntr:descriptor var list-string compares 


0055: 0085 Help Flag: $xx=HELP, $xx=LIST 

0056: 0086 - 0087 Jump vector for function evaluations 

0058: 0088 Oldov 

0059: 0089 Area for INSTRING oper. / temp pointer 1 


005A: 0090 - 0091 Pointer: block transfer, DIM init. 
005c: 0092 - 0093 Pointer: block transfer 


O05E: 0094 Temp pntr 2,occasionally floating-pt acc 
005F: 0095 - 0096 #>places before/after dec. for conver. 
0061: 0097 Pntr: Dec. pt when reading digit strings 
0062: 0098 Exponent sign of the # read (neg. =$80) 
0063: 0099 Floating-pt. accumulator 1: Exponent 
0064: 0100 - 0103 Floating-pt. accumulator 1: Mantissa 
0068: 0104 Floating-pt. accumulator 1: sign 

0069: 0105 Pointer: Polynomal evaluation 

006A: 0106 Floating-pt. accumulator 2: Exponent 
006B: 0107 - 0110 Floating-pt. accumulator 2: Mantissa 
OO6F: 0111 Floating-pt. acc. 2: sign 

0070: 0112 Result flag:sign compare Acc 1 to Acc 2 
0071: 0113 Floating-pt. accumulator 1: Round off 


0072: 0114 - 0115 Pointer: Cassette buffer 
0074: 0116 - 0117 Offset value for AUTO command, $00=off 


0076: 0118 Hires Flag: 1=BASIC-start set 10k higher 
0077: 0119 Sprite number-counter for leading zeros 
0078: 0120 Help counter 

0079: 0121 Temp storage for indirect loading 


007A: 0122 - 0124 Description of error-variable DS$ 
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007D: 
OO7F: 
0080: 
0081: 
0082: 
0083: 
0084: 
0085: 
0086: 
0087: 
0089: 
0O08B: 
008C: 
OO8E: 
OO8F: 
0090: 
0091: 
0092: 
0093: 
0094: 
0095: 
0096: 
0097: 
0098: 
0099: 
009A: 
009B: 
009c: 
009D: 
OO9E: 
OO09F: 
OOAO: 
00A3: 
00A5: 
OOA6: 
OO0A7: 
OO0A8: 
OOA9: 
QOOAA: 
OOAB: 


0125 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0137 
0139 
0140 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0163 
0165 
0166 
0167 
0168 
0169 
0170 
0171 


- 0126 


- 0136 
- 0138 


- 0141 


- 0162 
- 0164 


C-128 Internals 


End-of-stack during program run 

Mode Flag: $xx=RUN mode, $xx=direct mode 
USING pntr for dec pnt.,Stat. DOS parser 
Parstx 

Oldstx 

Current color for graphic mode 
Multi-color Mode: Color 1 

Multi-color Mode: Color 2 

Foreground color 

X-direction scale factor 

Y-direction scale factor 

Stop drawing, if not background color 
Address pointer for graphic routines 
Temp storage 1 for graphic routines 

Temp storage 2 for graphic routines 
Status word for kernal input/output 

Stop Flag: STOP key, RVS key 

Time constants for cassette operations 
Load Flag: $00=LOAD, $01=VERIFY 
Serial bus flag: character in buffer 

Char. in buffer for serial bus 

Sync # for cass, EOT received from tape 
Temporary data address 

Index for file tables, no. of open files 
Standard input device (0 for keyboard) 
Standard output device (3 for screen) 
Parity byte from cassette 

Tape flag: byte received 

Status flag for kernal 

Cassette error pass 1: char error 

Cassette error pass 2: corrected 

24-hr real-time clock : 1/60-sec count 
Temporary storage for serial bus 
Countdown - SAVE on tape, ser. help ptr. 
Pointer for cassette buffer 

Tape short counter, RS-232 input bits 
Tape read err,RS-232 counter input bits 
Tape 0 read flag, RS-232 start bit flag 
Tape READ mode, RS-232 buffer input byte 
Tape short counter, RS-232 input parity 
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O0AC: 0172 - 
OOAE: 0174 - 
OOBO: 0176 - 
0OOB2: 0178 - 
00B4: 0180 
00B5: 0181 
OOB6: 0182 
0OB7: 0183 
OOB8: 0184 
00B9: 0185 
OOBA: 0186 
OOBB: 0187 - 
OOBD: 0189 
OOBE: 0190 
OOBF: 0191 
00CO: 0192 
00c1: 0193 
00c2: 0194 
00C3: 0195 - 
o0c5: 0197 
o00c6é: 0198 
00C7: 0199 
00C8: 0200 - 
OOCA: 0202 - 
oocc: 0204 - 
OOCE: 0206 - 
00DO0: 0208 
00D1: 0209 
00D2: 0210 
00D3: 0211 
00D4: 0212 
00D5: 0213 
O0D6: 0214 
00D7: 0215 
00D8: 0216 
00D9: 0217 
QODA: 0218 
OODB: 0219 
00DC: 0220 
OODD: 0221 


0173 
0175 
0177 
0179 


0188 


0196 


0201 
0203 
0205 
0207 


C-128 Internals 


Pointer: screen scroll,cass buffer Lo/Hi 
Pointer: program end,cassette end Lo/Hi 
Cassette constant for time 

Pointer: Start of cassette buffer Lo/Hi 

Tape help pntr,RS232 next bit for scroll 
EOT char, RS-232 next bit for transfer 

Tape help pointer, RS-232 byte buffer 
Length of current filename 

Logical file number (LEN) 

Current secondary address (SA) 

Current decive number (GA) 

Pntr:Address of current filename Lo/Hi 

Tape pntr, RS-232 rotate parity buffer 

No. of remaining read/write blocks 

Serial buffer 

Flag: cassette motor 

Start address in/output (Lo), track no. 

Start address in/output (Hi), sector no. 

Tape LOAD temp. pntr Kernal vector address 
Tape read/write data range 

Bank no. current LOAD,SAVE,VERIFY calls 
Bank no. of current filename $BB,$BC 
Pointer: RS-232 input buffer 

Pointer: RS-232 output buffer 

Pointer: keyboard decoder table 

Pntr to string pos.-kernal PRINT routine 
Index to keyboard buffer queue 

Function key call flag 

Function key string call index. 

Shift flag: Shift=$01, C=$02, Ctrl=$04,old=$08 
Flag for keypress 

Flag current pressed key (CHR$(0)=none) 
Flag for INPUT or GET -- keyboard input 
Flag for 40/80 column mode 

Flag for text/graphic screen mode 

Pointer for char set, RAM/ROM (only bit 2) 
Pointer for MOVLIN (Lo), <keysiz, bitmask> 
Pointer for MOVLIN (Hi), <keylen, saver> 
Number of the function key 

F-key string length up to current F-key 
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OODE: 
OODF: 
OOEO: 
OOE2: 
OOE4: 
O0E5: 
OOE6: 
O0E7: 
00E8: 
O0E9: 
OOEA: 
OOEB: 
OOEC: 
OOED: 
OOEE: 
OOEF: 
OOFO: 
OOF1: 
O0OF2: 
OOF3: 
OOF4: 
OOFS: 
OOF6: 
OOF7: 
OOF8: 
OOF9: 
OOFA: 
OOFF: 


0222 
0223 
0224 
0226 


0228 


0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0255 


- 0225 
- 0227 


- 0254 


C-128 Internals 


Bank for function key call <sedtl> 

F-key string length up to current (F-key-1) 
Pointer to running screen line: text RAM 
Pointer running screen line:attribute RAM 
Lower border of window 

Upper border of window 

Left border of window 

Right border of window 

Start of running input column 

Start of running input line 

End of running input line 

Current cursor position: line 

Current cursor position: column 
Maximum number of screen lines 
Maximum number of screen columns 
Temp storage of characters to be put out 
Memory: previous char (for ESC test) 
Color code under cursor for char output 
Color code protection for INSERT/DELETE 
Flag: RVS mode active 
Flag: Quote mode active 

Flag: Insert mode active 

Flag: Auto insert active 

Cutoff switching of C-Shift ($80) and Ctrl S ($40) 
Cutoff of screen scrolling 

Cutoff of beep tones made by Crtl G 

Free area for user applications 

Lofbuf 


KRKKKKEKKKEKRKKKKKEKKKKKKKKKKEKKKKKKKKEKEKKEKKKKKEKKKEKKEKKKEKKKKKKKKKK 
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Commodore-128 Page-One RAM 


KKKKKKKKEKKEKKKKK KKK KKK KK KKK KEKE KERR KKK KEKE KE KK KKK KKEKKKKKKKKK 


0100: 0256 - 0271 16-byte area for creating data names 


0110: 0272 DOS loop counter 

0111: 0273 DOS length of 1st file name 

0112: 0274 DOS device numbers, 1st disk drive 
0113: 0275 - 0276 DOS address, 1st file name Lo/Hi 
0115: 0277 DOS length, 2nd file name 

0116: 0278 DOS device number, 2nd disk drive 


0117: 0279 - 0280 DOS address, 2nd file name Lo/Hi 
0119: 0281 - 0282 Starting address for BLOAD/BSAVE Lo/Hi 
011B: 0283 - 0284 End address for BSAVE command Lo/Hi 


011D: 0285 DOS logical address 

011E: 0286 DOS physical address 

O11F: 0287 DOS secondary address 

0120: 0288 DOS length of a record 

0121: 0289 DOS BANK number 

0122: 0290 - 0291 DOS 2-byte storage for diskette ID 

0124: 0292 DOS flag for disk ID testing 

0125: 0293 PRINT USING pointer to starting number 
0126: 0294 PRINT USING pointer to end number 
0127: 0295 PRINT USING flag for dollar sign ($) 
0128: 0296 PRINT USING flag for comma (,) 

0129: 0297 PRINT USING counter 

012A: 0298 PRINT USING sign of exponent 

012B: 0299 PRINT USING pointer to exponent 

012Cc: 0300 PRINT USING counter for whole no. places 
012D: 0301 PRINT USING flag for align after dec. pt 
012E: 0302 PRINT USING cntr field pos before dec pt 
012F: 0303 PRINT USING cntr field pos after dec. pt 
0130: 0304 PRINT USING flag for sign (+/-) 

0131: 0305 PRINT USING flag for field exponent 
0132: 0306 PRINT USING switch 

0133: 0307 PRINT USING counter for chars in field 
0134: 0308 PRINT USING sign number 

0135: 0309 PRINT USING flag for space or asterisk 
0136: 0310 PRINT USING pointer to start of field 
0137: 0311 PRINT USING pointer for length of format 
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0138: 0312 PRINT USING pointer to end of field 


KKKKEKKKEKKEKKKEKKKKKKKEKKKKKEKKKKKEKKKEKKEKKKEKEKKEKEKKKEKKEKKKKKKKKKKKK 


0139: 0313 - 0510 End of the system stack 
O1FF: 0511 Start of system stack 


KHKKKKKEKKKEKKEKKKERKKKKR KEKE KEKKEKKKEKKKEK KEKE KEKKKKKEKKKKKKKKKKKKKKK 


0200: 0512 BASIC and monitor input buffer 


KKKEKKKKKKEKKKEKKEKKKKEKKKEKKEKKKKKEKEKKKKRKKKKKKKRKKKEKKEKKKEKKKKKKKKK 


O2A2: 0674 FETCH Routine: LDA(ZP),Y from any bank 
02A2: AD 00 FF LDA S$FFOO You can find a description of 
02A5: 8E 00 FF STX $FFOO This routine in the 

O2A8: AA TAX ROM listing at $F800, because 
02A9: Bl FF LDA (SFF),Y The ROM copy is located there. 
02AB: 8E 00 FF STX $FFO00 The "FETVEC" address is: 
O2AE: 60 RTS $02AA, or dec. 0682. 


KREKKKKKKKKKKKKKKKKKKKKKEKKKKEKKKKKKEKKKKKKEKKKEKKEKKKRKEKKKKKKKKKKK 


O2AF: 0687 STASH Routine: STA(ZP),Y in any bank 

O2AF: 48 PHA You can find a description of 
02B0: AD 00 FF LDA $FF00 This routine in the 

02B3: 8E 00 FF STX $FFOO ROM listing at $F80D, because 
O02B6: AA TAX The ROM copy is located there. 
02B7: 68 PLA The "STAVEC" address: is 
02B8: 91 FF STA (SFF),Y $02B9, or dec. 0697. 

02BA: 8E 00 FF STX $FFOO 

02BD: 60 RTS 


KEKKKKKKKKKKKKEKRKKRKKKKKKKKKEKKKKRKKKKKEKKKKKKKEKKKKKKKEKKEKKKKKKKK 


O02BE: 0702 CMPARE Routine: CMP(ZP),Y with any bank 
O2BE: 48 PHA You can find a description of 
O2BF: AD 00 FF LDA $FFO0 This routine in the 
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02C2: 
02C5: 
02C6: 
02C7: 
02C9: 
02CC: 


8E 00 FF 


AA 
68 


D1 FF 
8E 00 FF 


69 


STX 
TAX 
PLA 
CMP 
STX 
RTS 


SFFO00 


(SFF) ,Y 
SFF00 


ROM listing at $F81C, because 
The ROM copy is located there. 
The "CMPVEC" address is: 
$02C8, or dec. 0712. 


RHEKEKKEKKKKKKKKEKKEKK KEKE KEK KKK KKEKKEKKKKKEKKEKKEKKKKKKKKKKKKKKEKKKKKKE 


02CD: 


02CD: 
02D0: 
02D2: 
02D4: 
02D6: 
02D7: 
02D8: 
02DA: 
O2DB: 
02DD: 
O2DF: 
02E2: 


0717 


20 
85 


E3 
06 
07 
08 


05 


09 
00 


00 FF 


02 


JSRFAR Routine: JSR in any bank and return 


JSR 
STA 
STX 

STY 
PHP 

PLA 
STA 
TSX 
STX 
LDA 
STA 
RTS 


$02E3 
* $06 
* $07 
* $08 


* $05 
* $09 


# $00 
SFFO00 


You can find a description of 
This routine in the 

ROM listing under the 

address $F82B, because 

The ROM copy is located there. 


KKKEKKKKKEKKKEKKKKEKEKKRKKEKE KKK KKKKK KKK KKK KKKKRKEKKEKERKEKKKKKKKKKKKE 


02E3: 


02E3: 
02E5: 
02E7: 
O2E8: 
02E9: 
O2EB: 
O2ED: 
O2EF: 
O2F3: 
O2F6: 
O2F8: 
O2FA: 
O2FB: 


0739 


A2 
BS 
48 
E8 
EO 


90 


A6 
20 
8D 
A5 
A6 
A4 
40 


00 
03 


FF 
FF 


JMPFAR Routine: JMP in in any bank no return 


LDX 
LDA 
PHA 
INX 
CPX 
BCC 
LDX 


“JSR 


STA 
LDA 
LDX 
LDY 
RTI 


# $00 
* $03,X 


# $03 
$02E5 
* $02 
SFF6B 
SFFO0 
* $06 
* $07 
* $08 
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This routine in the 

ROM listing under the 

Address $F841, because 

The ROM copy is located there. 
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KAKKKKKEKKKKKEKKEKKKKKKKKKKKK KKK KKK KEKKKEKKKEKKEKKKKKKEKKKKKEKKKKEKK 


Routine to jump to a function cartridge. The cartridge vector 
has the address: $02FE-$02FF (dec. 766-767) 


O2FC: 78 SEI Disable system interrupts 
02FD: 4c 00 00 JMP $0000 Jump to the function cartridge 
vector 


KRAEKKKKKEKKKKKEKKKKKKKKKEKKKKKEKKKKRKEKRKEKKEKRKKKKKKREKKEKKKKKKKKKKKKK 


0300: 0768 3F 4D ($4D3F) Vector: Error routine (X=error) 
0302: 0770 cé6 4D ($4Dc6) Vector: Read/exec. BASIC line 
0304: 0772 0D 43 ($430D)  Vctr: Convert interpreter code 
0306: 0774 51 51 ($5151) Vector: Convert to text (List) 
0308: 0776 - A2 4A  ($4Aa2) Vector: Execute the keyword 
030A: 0778 DA 78  ($78DA) Vector: Evaluate expression 
030C: 0780 21 43 ($4321) | Vector: Esc. conversion routine 
030E: 0782 CD 51 ($51cD) Vector: Escape list 

0310: 0784 A9 4B ($4BA9) Vector: Execute escape 

0312: 0786 FF FF ($FFFF) Interrupt vector: TIME 

0314: 0788 65 FA (S$FA65) Vector for IRQ routine 

0316: 0790 03 BO ($8003) Vector for break entry -Monitor 
0318: 0792 40 FA (S$FA40) Vector for NMI routine 

031A: 0794 BD EF (SEFBD) Vector to kernal OPEN routine 
031Cc: 0796 88 Fl  ($F188) Vector: kernal CLOSE routine 
031E: 0798 06 Fl ($F106) Vector: kernal CHKIN routine 
0320: 0800 4c Fl  ($F14c) Vector: kernal CKOUT routine 
0322: 0802 26 F2 ($F226) | Vector: kernal CLRCH routine 
0324: 0804 06 EF (SEFO06) Vector to kernal BASIN routine 
0326: 0806 79 EF  (S$EF79) Vector: kernal BSOUT routine 
0328: 0808 6E F6 (SF66E) Vector to kernal STOP routine 
032A: 0810 EB EE (SEEEB) — Vector to kernal GETIN routine 
032C: 0812 22 F2 ($F222) Vector: kernal CLALL routine 
032E: 0814 06 BO ($B006) Vector to EXMON entry 
0330: 0816 6C F2 (SF26c) Vector to kernal LOAD routine 


0332: 0818 4E F5 (SF54E) Vector to kernal SAVE routine 
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Copy of the character output, keyboard and decoder vectors. 
The originals of these vectors are in ROM at addr. $C065 - $CO7A 


0334: 0820 B9 C7 ($C7B9) ~~ Vector for char output with Ctrl 
0336: 0822 05 c8 ($c805) Vector: char output with Shift 
0338: 0824 Cl c9 ($c9Cc1) Vector for char output with Esc 
033A: 0826 E1c5 ($C5E1) ~~ Vector for keyboard read 
033C: 0828 AD C6 ($C6AD) Vector to keypress store 

033E: 0830 80 FA ($FA80) Vector: Keybd decoder table la 
0340: 0832 D9 FA ($FAD9) Vector: Keybd decoder table 2a 
0342: 0834 32 FB ($FB32) Vector: Keybd decoder table 3a 
0344: 0836 8B FB ($FB8B) Vector: Keybd decoder table 4a 
0346: 0838 80 FA ($FA80) Vector: Keybd decoder table la 
0348: 0840 E4 FB  ($FBE4) Vector: Keybd decoder table 5a 


KKRKKKKKEKKKKKKKKEKKEKKKKEKKKKEKKKKKKKKKKKEKREKRKKKKKKKKKKKKKKKKKKK 


034A: 0842 - 0851 IRQkeyboard buffer 

0354: 0852 - 0861 Bit map table: Tab stops 
035E: 0862 - 0865 Bit map table: Line overflow 
0362: 0866 - 0875 Table of logical file numbers 
036C: 0876 - 0885 Table of device addresses 
0376: 0886 - 0895 Table of secondary addresses 


KKEKKKKKKKKKEKKKKKKKKEKK KKK KKK KKK RKKKKKKKKKKKKKKKEKKKKKEKKKKKKKK 


0380: 0896 BASIC CHRGET routine 
(The original is in ROM at address $4279) 
0380: E6 3D INC * $3D Increment BASIC text pointer lo 
0382: DO 02 BNE $0386 No overflow, then skip 
0384: E6 3E INC * $3E Increment BASIC text pointer hi 
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0386: 


0386: 
0389: 
038B: 
038D: 


0902 


8D 
AO 
Bl 
8D 


01 FF 
00 
3D 
03 FF 


BASIC CHRGOT routine 
(The original is in ROM at address $427F) 


STA 
LDY 
LDA 
STA 


SFFO1 Enable RAM 0 area 

# $00 Displacement pntr to BASIC text 
($3D),¥ Get character from BASIC text 
SFF03 RAM 0, enable system ROMs 


KKKKKKKKKKKKKKKKKKEKK KK KEKE KK KKK KE REKEKKKKERKEKKKKKKKKKKKK 


0390: 


0390: 
0392: 
0394: 
0396: 
0398: 
0399: 
039B: 
039C: 
039E: 


0912 


cg 
BO 
c9 
FO 
38 
E9 
38 
B9 
60 


3A 
0A 
20 
EB 


30 


DO 


BASIC QNUM routine 

set zero flag for separator $00 or $3A 

set carry flag for digit 0 - 9 

(The original is in ROM at address $4289) 


CMP 
BCS 
CMP 
BEQ 
SEC 
SBC 
SEC 
SBC 
RTS 


# $3A Char code > digit code? 
$039B Yes, then skip 

# $20 Was character a "blank"? 
$0380 Yes, then skip blank 


Set carry for subtraction 
# $30 Test for digit (then C = 1) 

Set carry for subtraction 
# $D0 Restore old value 

Return from subroutine 


KRAEKKKKKKKKKEKKKKKKE KEKE KAKA KKK RK KKK EKKEKKRKKRKKKKKKKKKKKKKKKK 


039F: 


039F: 
03A2: 
O3A5: 
O3A7: 
O3AA: 


0927 


8D 
8D 
Bl 
8D 
60 


Load from a bank via PCRA and PRCR 
(The original is in ROM at address $4298) 


STA 
STA 
LDA 
STA 
RTS 


$03A6 
$FFO1 
($00),¥ 
SFF03 
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03AB: 0939 


O3AB: 8D B2 03 
O3AE: 8D 02 FF 
03B1: Bil 00 
03B3: 8D 04 FF 
03B6: 60 


Load from any bank via PCRB and PCRD 
(The original is in ROM at address $42A4) 


STA $03B2 
STA $FFO02 
LDA ($00),Y 
STA $FFO4 
RTS 


BKRKEKKEKEKKKEKKEKRKKKKEKKKRR KKK KK KKK KKK KKK KEKKKKKKKKKEKKKEKKKEKK 


03B7: 0951 


03B7: 8D 02 FF 
O3BA: Bl 24 
O3BC: 8D 04 FF 
O3BF: 60 


Load from any bank via PCRA and PCRC of 
the address given by zero-page index 1 
The original is in ROM at address $42B0) 


STA $FF02 
LDA ($24),Y 
STA SFEO4 
RTS 


KRKKKKKKKKKKEKEKKEKRKKKKEKKKEKKKEKKKKEK EKER KKKRKKRKKRKKKKEKKEKKKEKKKKKKE 


03c0: 0960 


03c0O: 8D 01 FF 
03C3: Bl 26 
03C5: 8D 03 FF 
03C8: 60 


Load from any bank via PCRB and PCRD of 
the address given by zero-page index 2 
(The original is in ROM at address $42B9) 


STA $FFO1 
LDA ($26),Y 
STA $FFO03 
RTS 


KHKKKKKEKKKK KEK KKK KEK KKK KEKE KK KKK EK KKKEKKKKEKKKKKKEKKKEKKKEKKKKKKKKKKK 


03C9: 0969 


03C9: 8D 01 FF 
03cC: Bl 3D 
O3CE: 8D 03 FF 


Load from any bank via PCRA and PCRC of the 


address given by the zero-page CHRGET pointer 


The original is in ROM at address $42C2) 


STA $FFO1 
LDA ($3D),Y 
STA $FFO3 
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03D1: 60 RTS 


KKK KKK KKK KKK KKK KIRK KKK KARR KEKE KKK AER EKER KKK EKER KEKKERKE 


03D2: 0978 - 0980 Numerical constants BASIC, loaded from ROM — 


03D5: 0981 Bank for SYS,POKE,PEEK. Set by bank cmd 
03D6: 0982 - 0985 Temp storage for INSTRING 

O3DA: 0986 Bank pointer for strings and number conversion 
03DB: 0987 - 0990 4 Byte storage for SSHAPE operations 

O3DF: 0991 Overflow marker of FAC1 

03E0: 0992 Temp storage for sprite control No.1 

03E1: 0993 Temp storage for sprite control No.2 

03E2: 0994 Packed foreground/background color nibbles 
03E3: 0995 Packed foreground/background color nibbles 


03E4: 0996 - 1007 Freearea 


KKK KKK EKER KKK RK AKAIKE KK KEK KEKE KEKE RRR KKK KER KERR EKEKE 


O3FO: 1008 DMA call routine inthe lower common area (1st K) 


for initializing the the external memory access 
O3FO0: AE 00 FF LDX $FFO00 You can find a description of 
03F3: 8C 01 DF STY $DFO1 This DMA call routine for 
O3F6: 8D 00 FF STA $FFO0 controlling the external memory 
03F9: 8E 00 FF STX $FFOO access in ROM under the 
O3FCc: 60 RTS original address $F85A 


KIKI KKK KKK KK KKK KEKE KKK KKK KEKE KEKE KKK KKKKKKKKKK 
O3FD: 1021 - 1023 Freearea 


O3FF: 1023 End of the common area, the same in all banks 


KKKKKEKEKKKKEKKEKKKEK EKER KEEKKEKR EKER KKK KKK KK KEK KEKKKKKKKKKKEKKKEKE 


0400: 1024 - 2047 Screen storage 


KREKKKEKKEKKKEKKEKKEKEKEKK KEKE KEKE KKEKEKRKEKEKKEKKKEKRKKKKKKKKKKKKKKKK 


0800: 2048 - 2559 512 bytes for BASIC run-time storage 
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OA00: 2560 - 2561 Vector System restart (normal warm-start) ($4003) 


OA02: 2562 Kernal Warm/cold-start Initialization status 
0A03: 2563 PAL/NTSC system pntr ($FF=PAL,$00=NTSC) 
OA04: 2564 System pointer for the NMI and RESET status 


0A05: 2565 - 2566 Lower boundary of available RAM in system bank 
0AQ7: 2567 - 2568 Upper boundary of available RAM in system bank 
0A09: 2569 - 2570 Indirect IRQ vector for cassette routines 


OAOB: 2571 Time comparison for cassette routines 

OAOC: 2572 Temp stroage when reading from cassette 
OAOD: 2573 Temp storage when reading from cassette 
OAOE: 2574 Timeout pointer for fast serial mode 

OAOF: 2575 RS-232 NMI status register 

0A10: 2576 RS-232 control register 

QAl1: 2577 RS-232 command register 

0A12: 2578 - 2579 RS-232 user baud rate 

0A14: 2580 RS-232 status register 

OA15: 2581 RS-232 Number of bits to send 

0A16: 2582 - 2583 RS-232 baud rate: full bit time (in us) 

OA18: 2584 RS-232 Index to the start of the input buffer 
0A19: 2585 RS-232 Index to the end of the input buffer 
OA1A: 2586 RS-232 Index to the start of the output buffer 
0A1B: 2587 RS-232 Index to the end of the output buffer 
OA1C: 2588 Intern/extern pointer for fast serial mode 
0A1D: 2589 - 2591 Temp storage for the 24hr real-time clock 
0A20: 2592 Storage for the size of the keyboard buffer 
0A21: 2593 Pause pointer, <Crtl - S> pointer 

OA22: 2594 Pointer: Key repetitions 

0A23: 2595 Count speed for the key repeat 

0A24: 2596 Counter for the key-repeat delay 

0A25: 2597 Storage for the last shift pattern of the keyboard 
OA26: 2598 Pointer for cursor in flash phase 

0A27: 2599 Pointer for cursor on/off (0 = flashing cursor) 
0A28: 2600 Count pointer for flashing cursor 

0A29: 2601 Character for cursor position 

OA2A: 2602 Storage for background color under cursor 
0A2B: 2603 Pointer for current cursor mode (if available) 
OA2C: 2604 Text screen/character base pointer 

OA2D: 2605 Bit map base pointer 
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OA2E: 2606 Pointer for address (*256) for 80 char video RAM 
OA2F: 2607 Pointer for address (*256) for attribute RAM 
0A30: 2608 Temp pointer to last line for LOOP4 routine 
0A31: 2609 Temp storage (a) for 80-column routines 

0A32: 2610 Temp storage (b) for 80-column routines 

0A33: 2611 Temp storage (a) for line clear / move 

0A34: 2612 Temp storage (b) for line clear / move 

0A35: 2613 Color under 80-column cursor before flash 
OA36: 2614 Raster line at which the raster int. was generated 
0A37: 2615 Storage for the X-register for BANK operations 
0A38: 2616 Counter for the PAL system, jiffie adjust 

0A39: 2617 Temp storage for for 80-column VDC screen 


KKK KKK KKK KEK KKK KKK RK KKK KK KKK KK KKK KER KKK ERK KKK RK KEKKKKREKKKK 


Safety storage for passive-screen variables. This area 
corresponds to the zero-page area at $EO. 


0A40: 2624 -— 2625 Pointer to the current screen line: Text RAM 
0A42: 2626 - 2627 Pointer to the current screen line: Attribute RAM 


OA44: 2628 Lower border of the window (init: $18 = 24) 
0A45: 2629 Upper border of the window (init: $00 = 00) 
0A46: 2630 Left border of the window (init: $00 = 00) 

0A47: 2631 Right border of the window (init: $4F = 79) 
0OA48: 2632 Start of the current input line (init: $00 = 00) 
0A49: 2633 Start of the current input column (init: $00 = 00) 
OA4A: 2634 End of the current input line (init: $00 = 00) 
OA4B: 2635 Current cursor position: line (init: $00 = 00) 
OA4C: 2636 Current cursor position: column (init: $00 = 00) 
OA4D: 2637 Max number of screen lines (init: $18 = 24) 
OA4E: 2638 Max number of screen columns (init: $4F = 79) 
OA4F: 2639 Temp storage for character to output 

0A50: 2640 Storage: Previous character (for ESC test) 

OA51: 2641 Current color code under cursor (init: $07 = 07) 
OA52: 2642 Color code storage (Insert+delete)(init: $07 = 07) 
0A53: 2643 Pointer for RVS mode active 

0A54: 2644 Pointer for quote mode active 

0A55: 2645 Pointer for insert mode active 

OA56: 2646 Pointer for auto-insert active 

0A57: 2647 Pointer for switch-lock and pause pointer 
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OA58: 2648 Pointer for locking screen-scroll 
0A59: 2649 Pointer for locking beep tone (Ctrl-G) 


KKKKKKKKKKEKK KEKE KKK KK KKK KKK KKK KKK KEK KRKRKKEKERKKKKKKEKKKKKKEK 


OA60: 2650 - 2687 ‘Temp storage area for 40 and 80-column 
0A80: 2688 - 2719 Buffer for comparison operations 
OAAO: 2720 - 2729 Temp counter 


OAAA: 2730 Adressing mode for assembler command 

OAAB: 2731 Length of the cmd code for assem./disassembler 

QOAAC: 2732 - 2734 Assembler/disassembler storage for integ. monitor 

OAAF: 2735 One-byte temp storage for misc 

OABO: 2736 One-byte temp storage for misc 

QOAB1: 2737 One-byte temp storage for misc 

OAB2: 2738 X-reg storage for indirect subroutine calls 

0AB3: 2739 Direction pointer for transfer operations 

OAB4: 2740 - 2751 One-byte temp storage 

OACO: 2752 ROM bank for current function key call 

O0AC1: 2753 - 2756 Table of physical addresses and ID's from 
inserted expansion cards 

OAC5: 2757 System pointer for the combination of vowels with 


accents in DIN character set (International only) 


KREKKKKKKKKEKKKKKEKK KKK KK KKK KKK KRKEKERKKRKKKKEKKEKRKKKKKKKKKKKKEKKEKKKE 


0B00: 2816 - 3071 Cassette buffer 


KKEKKKEKKKKKKKKKKKKKKKEKEKKKKKEKKEKRKKRKKKKKKKKKKKKEKKKKKKKKKKKKKKKKK 


0c00: 3072 - 3327 RS-232 input buffer 


KREKKKEKKEKKKEKKKEKKKEK KKK KEK KEK KKK KEKKK KK KKEKKKKKERKKEKKEKKKKKKKKKKKKE 


0D00: 3328 - 3583 RS-232 output buffer 


KKEKKKKKK KKK KKK KEKEKKEKKKEKRKER KEKE KEKE KEKKERKKKKRKKRKEKKKKKKKKKKKKEKE 


0E00: 3584 - 4095 Area for sprite definition (must be under $1000) 
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1000: 4096 - 4105 Programmable function keys (length table) 
100A: 4106 - 4351 Programmable function keys (function strings) 


KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK RIKER RRR KKK KKK RRR KKK KKKK 


1100: 4352 - 4400 Buffer for generating DOS output strings 

1131: 4401 - 4402 Graphic variable: Current X-position (Lo/Hi) 
1133: 4403 - 4404 Graphic variable: Current Y-position (Lo/Hi) 
1135: 4405 - 4406 Graphic variable: Dest direction, X-coord (Lo/Hi) 
1137: 4407 - 4408 Graphic variable: Dest direction, Y-coord (Lo/Hi) 
1139: 4409 - 4410 Variable - graphic lines: X/Y-absolute,X-absolute 
113B: 4411 - 4412 Variable for graphic lines: Y-absolute 

113D: 4413 - 4414 Variable - graphic lines: X/Y-Signum , X-Signum 
113F: 4415 - 4416 Variable for graphic lines: Y-sign 

1141: 4417 - 4420 Variable for graphic lines: Factor 

1145: 4421 - 4422 Variable for graphic lines: Error value 


1147: 4423 Variable for graphic lines: Smaller marker 
1148: 4424 Variable for graphic lines: Larger marker 
1149: 4425 Variable for angle routine: Sign of the angle 


114A: 4426 - 4427 Variable for angle routine: Sine of the angle value 
114c: 4428 - 4429 Variable for angle routine: Cosine of the angle val 
114E: 4430 - 4431 Variable for angle routine: Angle distance 


KKK KKK KK KEK KKK KK KKK KKK KKK KKK KR KR KKK KKK KKK KEKE KKK KK KEK KK KKK 


The following 24 bytes are used for a variety of purposes 
Variables for circle routines 


1150: 4432 - 4433 Circle center: X-coordinate (Lo/Hi) 
1152: 4434 - 4435 Circle center: Y-coordinate (Lo/Hi) 
1154: 4436 - 4437 Circle radius in X-direction (Lo/Hi) 
1156: 4438 - 4439 Circle radius in Y-direction (Lo/Hi) 
1158: 4440 - 4443 Rotation angle of the circle (Lo/Hi) 
115c: 4444 - 4445 Angle degree for start of arc (Lo/Hi) 
115E: 4446 - 4447 Angle degree for end of arc (Lo/Hi) 
1160: 4448 - 4449 X-radius * Cos (rotation angle) 
1162: 4450 - 4451 Y-radius * Sin (rotation angle) 
1164: 4452 - 4453 X-radius * Sin (rotation angle) 
1166: 4454 - 4455 Y-radius * Cos (rotation angle) 
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1150: 4432 - 4433 
1152: 4434 - 4435 
1154: 4436 - 4437 
1156: 4438 - 4439 
1158: 4440 - 4441 
115A: 4442 - 4443 
115C: 4444 ~- 4445 
115E: 4446 - 4447 


1159: 4441 - 4442 
115B: 4443 - 4444 
115D: 4445 — 4446 
115F: 4447 - 4448 


Parameters used for general purposes 


Center for X-coordinate 
Center for Y-coordinate 
Distance 1 for X-coordinate 
Distance 1 for Y-coordinate 
Distance 2 for X-coordinate 
Distance 2 for Y-coordinate 
End of coordinate distance 
Column counter for characters 
Line counter for characters 
Length counter for string 


Variables used for rectangle routines 


X-coordinate 1 

Y-coordinate 1 

Rotation angle 

Counter for X-value 

Counter for Y-value 

Length of a side of the rectangle 
X-coordinate 2 

Y-coordinate 2 


Used for shapes and shape movement 


Place older 

Length pointer 

Following pointer 

Length of the string 

Shape mode set/replace 

Pointer to position in the string 

Old bit-map byte 

Variable for new string or bit-map byte 
Place holder 

Column width (X-width) of a shape 
Line number (Y-length) of a shape 
Temp storage for the column width 
Pointer to the shape string for shape storage 
Bit pointer to byte of shape string 
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Area for general graphic variables 


1168: 4456 Temp storage for diverse purposes 

1169: 4457 Temp storage: Bit counter GSHAPE instruction 
116A: 4458 Screen scaling pointer 0=320*200,1=1024*1024 
116B: 4459 Temp storage for double-width 

116C: 4460 Temp storage for box fill 

116D: 4461 Temp storage for bit masks 

116E: 4462 Temp counter for numerical values 

116F: 4463 Temp pointer for trace mode on/off 


1170: 4464 - 4465 Temp storage 1 for renumber routine 
1172: 4466 - 4467 Temp storage 2 for renumber routine 


1174: 4468 1 byte temp storage 

1175: 4469 - 4470 2 byte temp storage 

1177: 4471 1 byte temp storage 1 for graphic routines 
1178: 4472 1 byte temp storage 2 for graphic routines 
1179: 4473 1 byte temp storage for graphic routines 


117A: 4474 - 4475 Vector: Convert floating-point to integer ($849F) 
117c: 4476 - 4477. Vector: Convert integer to floating-point ($793C) 
117E: 4478 - 4565 Speed/direction table for sprites 

11D6: 4566 - 4607 42-byte area for copying VIC registers 

1200: 4608 - 4609 Previous BASIC line number 

1202: 4610 - 4611 Command pointer for BASIC CONT command 


1204: 4612 Print Using pointer: Chr$ 

1205: 4613 Print Using pointer: Fill character 

1206: 4614 Print Using pointer: Comma character 

1207: 4615 Print Using pointer: Character for decimal point 
1208: 4616 Last error number (for TRAP command) 


1209: 4617 - 4618 Line number of the last error ($FFFF is OK ind) 
120B: 4619 - 4620 Line number to be executed if error occurs 
120D: 4621 Temp pointer for TRAP command 

120E: 4622 - 4623 Pointer to text of error message 

1210: 4624 - 4625  Text-end pointer 

1212: 4626 - 4627 Highest address available to BASIC in RAM 0 
1214: 4628 - 4629 Temp storage for DO - LOOP 

1216: 4630 - 4631 Temp storage for line number 

1218: 4632 USR jump 

1219: 4633 - 4634 USRaddress in format Lo/Hi 
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121B: 4635 - 4639 Initial value for RND function 
1220: 4640 Degree number for arc 
1221: 4641 Pointer to reset status (cold-start or warm-start) 


KKK KK KKK KKK KKK KKK KKK KKK KKK KK KEK KK AKK EKA KRK RE KRKKK KKK KKK KK 
Storage area for music pointers 


1222: 4642 <tempo rate> 
1223: 4643 - 4648  <voices> 
1229: 4649 - 4650 <ntime> 


122B: 4651 <octave> 
122C: 4652 <sharp> 
122D: 4653 - 4654 <pitch> 
122F: 4655 <voice> 
1230: 4656 - 4658 <waveQ0> 
1233: 4659 <dnote> 
1234: 4660 - 4663 <fltsav> 
1238: 4664 <fitflg> 
1239: 4665 <nibble> 
123A: 4666 <tonnum> 
123B: 4667 - 4669 <tonval> 
123E: 4670 <parcnt> 


123F: 4671 - 4680 <atktab> 
1249: 4681 - 4690 <sustab> 
1253: 4691 - 4700 <waftab> 
125D: 4701 - 4710 <pulslw> 
1267: 4711 - 4720 <pulshi> 
1271: 4721 - 4725  <filters> 


KHEKKKKKKKKKKKKEKKKKKK KKK KK KKK KERR KEKKKKKKKKKEKKKEKKKKKKKKKKE 


Storage area for interrupt pointer 


1276: 4726 - 4728  3-byte interrupt storage 

1279: 4729 - 4731 3-byte interrupt address lo storage 
127C: 4732 - 4734 3-byte interrupt address hi storage 
127F: 4735 <intval> 

1280: 4736 <coltyp> 
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1281: 
1282: 
1285: 
1288: 
128B: 
128E: 
1291: 
1294: 
1297: 
129A: 
129D: 
12A0: 
12A3: 
12A4: 
12A5: 
12A6: 
12A7: 
12A8: 
12A9: 
12AA: 
12AB: 
12AC: 
12AD: 
12AE: 
12AF: 
12B0: 
12B1: 
12B2: 
12B3: 
12B7: 
12FA: 
12FB: 
12FC: 


4737 
4738 
4741 
4744 
4747 
4750 
4753 
4756 
4759 
4762 
4765 
4768 
AT7T1 
4772 
4773 
4774 
47175 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4791 
4858 
4859 
4860 


- 4740 
- 4743 
- 4746 
- 4749 
- 4752 
- 4755 
- 4758 
- 4761 
- 4764 
- 4767 
- 4770 


- 4790 
- 4857 


- 4863 


Storage for SID variables 


Sound: Voice storage 

Sound: Time storage lo value (3 byte) 

Sound: Time storage hi value (3 Byte) 

Sound: Max value lo (3 Byte) 

Sound: Max value hi (3 Byte) 

Sound: Min value lo (3 Byte) 

Sound: Min value hi (3 Byte) 

Sound: Direction (3 Byte) 

Sound: Step number lo (3 Byte) 

Sound: Step number hi (3 Byte) 

Sound: Frequency lo (3 Byte) 

Sound: Frequency _ hi (3 Byte) 

Temp storage: Time value _lo 

Temp storage: Time value hi 

Temp storage: Maximum value lo 

Temp storage: Maximum value hi 

Temp storage: Minimum value lo 

Temp storage: Minimum value hi 

Temp storage: Direction 

Temp storage: Step number lo 

Temp storage: Step number hi 

Temp storage: Frequency lo 

Temp storage: Frequency hi 

Temp storage: Pulse-wave width lo 

Temp storage: Pulse-wave width hi 

Temp storage: Waveform 

Temp storage 1 for POT function 

Temp storage 2 for POT function 

Temp storage for WINDOW operations lo/hi 
Memory pointer for SPRDEF & SAVSPR cmds 
Definit. mode for SPRDEF and SAVSPR cmds 
Line counter for SPRDEF and SAVSPR cmds 
Sprite number for SPRDEF and SAVSPR cmds 
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——_-——————— 


RR II IR IIR IK RICKI ICICI ICICI OIRO IO ICICI ORR kek 


1300: 4864 - 6143 Unused absolute RAM range 
1800: 6144 - 7167 Reserved for function key applications 
1c00: 7168 - 8191 Video matrix #2 (1 Kb, bit map color) if needed 


RRR IRR RRR KK RRO III ICTR IA RR RR 


2000: 8192 -16383 VIC bit map (8 Kb) if needed 


RRR IRR RK RK KK ICR RKTT ICICI I TOIT IOI RRR ak ae 


4000: 16384 Start of ROM 


RRR KKK OR RR III IIR IIIT III IIIT OTTO TORTI OT IO I KK AA IK FOR keke 
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8.3 Alphabetical listing of the kernal routines 


As a user of the kernal and its subroutines you probably have found 
yourself looking for a certain routine or table. The kernal and the built-in 
monitor in the Commodore 128 consist of a large number of interesting and 
useful routines which you can integrate into your own programs in various 
ways. The problem lies in knowing that a certain routine exists, but not 
knowing where it can be found and how to access it. Before you start to 
look in the ROM listing for the routine you need, take a look through this 
table in which we have listed all of the important routines and tables which 
may be of interest to you. 


$c17c Adapt attribute RAM address 

SBOFC Addresses of the individual monitor commands (table) 
$SB88A Base table for four number systems 

SC98E __ Bell: create tone 

SEF84 | BSOUT output not to screen 

$E224 C128 mode routine 

$F81C | CMPARE routine for FAR operations RAM 
$F81C | CMPARE routine for FAR operations ROM 
SEE9B Change IRQ vector for tape operation 

$C3F4 Check Commodore key for time delay 
$F3A1 Check filename for burst mode 

SCA9F Clear from cursor position to screen end 
$CA76 Clear from cursor position to line end 

$CA8B Clear from line start to line end 

$SCBB1 __ Clear line overflow bit 

$C60A Commodore/Shift character set switch 
$C892 Commodore/Shift switch to 40-column mode 
$C89F | Commodore/Shift switch to 80-column mode 
SEOCD Copy NMI and IRQ routines to all banks 
$E723 CKOUT routine for RS-232 output 

$F16C | CKOUT evaluation on serial bus 

$F127 CHKIN evaluation on RS-232 

$E795 CHKIN routine for RS-232 input 

$F1A9 CLOSEroutine for tape operation 

SEEDO — Check cassette recorder-keyboard 

$E980 Check tape header address for validity 
$E242 Check EXROM input form cartridge test 
$E61B Check RS-232 send parity 

SCAEA Clear or set auto-insert pointer 
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$C142 
$C4A5 
$C4CO 
SB8D2 
SB8C2 
SF755 
SE24B 
$c40D 
$C436 
SED51 
$F533 
SF50F 
SF533 
SCEOC 
$C320 
$C93D 
$SCA52 
SCA24 
SF1E4 
SF1C1 
$C91B 
SC3DC 
$B050 
SBOC5 
SB641 
SC96C 
SC8A6 
$03F0 
SCAF2 
$C194 
$C62F 
SC6AD 
SC7B6 
SC9OBE 
SC8E3 
$02A2 
SF800 
SF7C9 
SF7AE 
SC6E7 
SE26B 
$SE569 
SCC6A 


Clear screen window 

Clear screen line in 40-column mode 

Clear screen line in 80-column mode 

Convert acc contents into two ASCII characters (X/A) 
Convert acc to two ASCII characters and output 
Coordinate system status word 

Configure system as Commodore 64 

Copy a window line (routine: MOVLIN) 

Copy a window line in 80-column mode 

Copy start address for input/output operations 
Control message: output LOADING 

Control message: output SEARCHING FOR filename 
Control message: output VERIFYING 

Copy character set into VDC RAM 

Conversion from ASCII characters to POKE codes 
Delete character under cursor 

Delete current input line 

Define sceen as window 

Delete file entry from table 

Delete a file entry 

Delete character to the left of the cursor 

Delete line on screen (with move) 

Display monitor register contents 

Determine address of a monitor command 
Determine address of BRANCH commands 
Determine tab position 

Disable or enable Commodore/Shift 

DMA call routine of common area in RAM 
Enable block cursor 

Editor IRQ routine 

Evaluate decoder table according to shift pattern 
Evaluate and store keypress 

Execute control code 

Execute escape sequences 

Execute insert 

Fetch routine for FAR operations RAM 

Fetch routine for FAR operations ROM 

Fetch routine for LSV operations 

Fetch routine for character from filename 

Flash VIC cursor 

Function ROM test for C-128 mode 

Get bit from serial bus into carry flag 

Get cursor position and set 


428 


Abacus Software C-128 Internals 





$C244 
SCB58 
$C29B 
SEF5C 
SEF48 
SEF 67 
SE7CE 
SEEF 9 
SE5D6 
SE9BE 
$CO7B 
$CO7B 
$B046 
$B021 
$B014 
SE1DC 
SC37C 
SEAEB 
SED90 
SCCF6 
$02E3 
SF841 
$02CD 
SF82B 
SC94F 
SE43E 
SEF06 
SF934 
SEF79 
SF106 
SEFO6 
SEF79 
$E503 
SF14C 
SF222 
SF188 
SF226 
SF7A5 
SE5FB 
SF7EC 
SEEEB 
SE24B 
SF781 


Get character from keyboard queue 
Get character and color at cursor position 
Get character from screen 

Get character from serial bus 

Get character from cassette 

Get character from RS-232 

GET routine for RS-232 

GETIN evaluation not over keyboard 
Give fast-mode pulse on serial bus 
Increment tape buffer pointer 
Initialize screen and editor 
Initialize editor and screen 
Initialization of monitor commands 
Initialize monitor for regular entry 
Initialize monitor after BREAK 
Initialize VDC registers 

Insert line on screen 

Interrupt routine for tape read 
Interrupt routine for tape write 
Insert function key string 
JMPFAR routine RAM 

JMPFAR routine ROM 

JSRFAR routine RAM 

JSRFAR routine ROM 

Jump to tab stop 

Kernal Acptr routine 

Kernal BASIN routine 

Kernal boot routine 

Kernal BSOUT routine 

Kernal CHKIN routine 

Kernal CHRIN routine 

Kernal CHROUT routine 

Kernal CIOUT routine 

Kernal CKOUT routine 

Kernal CLALL routine 

Kernal CLOSE routine 

Kernal CLRCH routine 

Kernal DMA call routine 

Kernal FSTMODE routine 

Kernal GETCFG routine 

Kernal GETIN routine 

Kernal GO64 routine 

Kernal IOBASE routine 
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$SE109 
SFF17 
$C55D 
SE343 
SF79D 
SF786 
SF265 
SF772 
SF763 
SFFO5 
SEFBD 
SF867 
SFAL7 
$E093 
SF65E 
SF744 
SFF3D 
SE4D2 
SF73F 
SF738 
SF75C 
$F731 
SF665 
SF75F 
$E33B 
SE4E0 
SF5F8 
$E526 
$E515 
SE056 
SF53E 
SF66E 
SEO5B 
SC67E 
$C55D 
SF63D 
SC5E1 
SC6CA 
$B976 
SE9FB 
SF3EA 
SF27B 
SB406 


Kernal IOINIT routine 

Kernal IRQ routine 

Kernal KEY routine ($FC87 in International versions) 
Kernal LISTN routine 

Kernal LKUPLA routine 

Kernal LKUPSA routine 

Kernal LOAD routine 

Kernal MEMBOT routine 

Kernal MEMTOP routine 

Kernal NMI routine 

Kernal OPEN routine 

Kernal PHOENIX routine 

Kernal PRIMM routine 

Kernal RAMTAS routine 

Kernal RDTIM routine 

Kernal READST routine 

Kernal RESET routine 

Kernal SECND routine 

Kernal SETBNK routine 

Kernal SETFLS routine 

Kernal SETMSG routine 

Kernal SETNAM routine 

Kernal SETTIM routine 

Kernal SETTMO routine 

Kernal TALK routine 

Kernal TKDA routine 

Kernal UDTIM routine 

Kernal UNLSN routine 

Kernal UNTLK routine 

Kernal RESTOR routine 

Kernal SAVE routine 

Kernal STOP routine 

Kernal VECTOR routine 

Key repeat evaluation 

Keybaord matrix read 

Keyboard row selection: RUN/STOP - SHIFT 
Keyboard read evaluate 

Keyboard buffer prepare for function key 
Load bank pointer and program counter from zero page 
Load program from cassette 

LOAD routine in burst mode 

LOAD routine from serial bus 
Monitor command: . (assemble a line) 
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$B194 
SB1AB 
SBA90 
SB406 
$B231 
$B599 
SB3D8 
$SB1D6 
SB2CE 
SB1DF 
$B337 
$B152 
$B050 
$B337 
$B234 
$B337 
SBOE3 
$B981 
SE805 
SE8A9 
$E878 
SF915 
SFOCB 
SEFFO 
SF040 
SE75C 
SCC2F 
SFD15 
$CC27 
SE3E2 
SC76F 
$C2BC 
$C72D 
SF521 
SF71E 
SCE8C 
SF 9FB 
SEAA1 
$C363 
SE69D 
SCCA2 
SF4C5 
SE9F2 


Monitor command: ; (change register) 

Monitor command: > (change memory contents 
Monitor command: @ (disk command) 

Monitor command: A (assemble a line) 

Monitor command: C (compare memory areas) 
Monitor command: D (disassemble memory) 

Monitor command: F (fill memory area) 

Monitor command: G (Jump to XXXX without return) 
Monitor command: H (Search for memory contents) 


. Monitor command: J (Jump to XXXX with RTS) 


Monitor command: L_ (Load a program) 

Monitor command: M (display memory contents) 
Monitor command: R (display register contents) 
Monitor command: S (store a program) 

Monitor command: T (move memory areas) 
Monitor command: V (compare program with memory) 
Monitor command: X (exit) 

Monitor command: Convert number to different system 
NMI routine for RS-232 

NMI routine for RS-232 output 

NMI routine for RS-232 input 

Output boot sector message 

Open file on serial bus 

OPEN routine for tape operation 

OPEN routine for RS-232 

Output in RS-232 buffer 

Output acc at cursor position 

Output combined accent 

Output space at cursor position 

Output byte on serial bus 

Output carriage return to screen 

Output character at cursor position 

Output character on screen 

Output found filename on screen 

Output system and control messages 

Prepare byte output on serial bus 

Prepare acc contents in two ASCII characters (-99) 
Prepare cassette synchronization 

Perform linefeed 

Process received bit from RS-232 

Program function key 

Read data block in burst mode 

Read data block from tape 
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SF4BA 
$C258 
SE8DO 
SE987 
SEE57 
SEEBO 
SE000 
$C651 
$C77D 
SFOBO 
SFCAA 
SF 9B3 
$C980 
SE5FF 
SE68E 
SE672 
SE6D4 
SEFB7 
$C3A6 
SF5C8 
SE99A 
SCBC3 
SF202 
SCACA 
SCABC 
SCAE2 
SF23D 
SCA14 
SED5A 
$CB37 
SCDF9 
SC7E5 
SC7EC 
SCB93 
SC8D5 
SCD57 
SC33E 
$c150 
$C875 
$C867 
$C854 
SC85A 
SCcood 


Read data byte in burst mode 

Read an input line terminated by RETURN 
Read program header from cassette 
Recalculate tape-end address 
Recorder operation end 

Recorder motor off 

Reset routine 

Repeat keyboard logic 

Reset quote mode 

Reset CIAs to RS-232 

Reset decoder table set vectors 
Recreate DOS output buffer 

Reset tab stops 

RS-232 output 

RS-232 data-bit number calculate 
RS-232 NMI status set 

RS-232 start bittest 

RS-232 character output 

Scroll screen up 

SAVE routine for tape operation 
Search tape header for name 

Search for end of input line 

Search in logical file number table 
Scroll up 

Scroll down 

Scrolling permit or prohibit 

Set standard I/O devices 

Set window borders 

Set bit counter for serial output 

Set or clear bell pointer 

Set attribute address for attribute RAM 
Set character color in 40-column mode 
Set character color in 80-column mode 
Set line overflow bit 

Set cursor flash mode 

Set cursor at current column 

Set cursor to end of line 

Set cursor in screen windor at HOME position 
Set cursor to left in window to left 

Set cursor up in window 

Set cursor right in window 

Set cursor down in window 

Set cursor one position left in window 
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SCBED 
$C932 
SCD6F 
SFOD5 
$C961 
$E573 
SC8BF 
$C207 
SF39B 
SO2AF 
SF80D 
SF7BC 
$CD2C 
SFA65 
SFA40 
SF7FO 
SCEB2 
$C6DD 
SEEA8 
SCE74 
SCE8E 
SC78C 
SEO4B 
SBOE6 
SE850 
SE2F8 
SE2C7 
SFCC3 
$SCB74 
SC2FF 
SB7A5 
SEA8F 
SE9DF 
$C8DC 
SCB1A 
SCB2E 
SCBOB 
$CB21 
SCB48 
SCB3F 
SC8CE 
$C8C7 
SCAFE 


Set cursor one position right in window 
Set old cursor address again 

Set cursor color at cursor position 

Set filename to serial bus 

Set or clear tab stop 

Set clock frequency to IMHz 

Set or clear reverse mode 

Set IRQ register 

Set program end address after LOAD 
Stash routine for FAR operations RAM 
Stash routine for FAR operations ROM 
Stash routine for LSV operations 

Switch 40/80 column modes 

System IRQ routine 

System NMI routine 

Table of configuration values 

Table of function key assignments 

Table of funtion key codes 

Table of IRQ vectors for tape operation 
Table of initialization values for 40-column 
Table of initialization values for 80-column 
Table of control codes 

Table of MMU initialization values 

Table of monitor keywords 

Table of timer constants for RS-232 baud rate 
Table for VDC initialitzation 

Table for VIC initialitzation 

Test accent keys and combine accents 
Test line overflow bit 

Test quote character and set pointer 

Test separator between command operands 
Test the STOP key 

Test for tape button 

Turn off cursor flash mode 

Turn cursor flash off for 40-column mode 
Turn cursor flash on for 40-column mode 
Turn cursor flash off for 80-column mode 
Turn cursor flash on for 80-column mode 
Turn off 80-column reverse 

Turn on 80-column reverse 

Turn underline mode off 

Turn underline mode on 

Turn underline cursor on 
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SCO6F 
SFE34 
$co00d 
SC9ODE 
SC7B6 
SF3EA 
SEA7D 
SE7EC 
SE5BC 
SE9E9 
SE9C8 
SEA1L5 
SED69 
$E919 
$E919 
SEA1C 
SEE2E 


Vector table to ASCII decoder tables 
Vector table to DIN decoder tables (International Versions only) 
Vector table for editor routines 

Vector table for editor routines 

Vector table for control code routines 
Verify routine in burst mode 

Wait for tape I/O termination 

Wait for end of RS-232 tranfer 

Wait for fast-mode response from bus 
Wait for RECORD & PLAY on Datasette 
Wait for button on datasette 

Write tape buffer to tape 

Write bit to tape 

Write data block to tape 

Write header to tape 

Write data block to tape 

Write the header 
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8.4 The Token Table 


The Commodore BASIC 7.0 is, in contrast to BASIC 2.0 on the C-64, 
extended with a number of new commands and instructions. As you know, 
BASIC commands are not saved in their text forms, but in the form of 
so-called "tokens". In order to ensure unambiguous identification of tokens 
and other text characters, the code values 128 to 256 are reserved for the 
tokens. This is exactly 128 possible values with which a token can be 
indicated. But BASIC 7.0 has more than 128 different command keywords. 
For this reason, there are some tokens which require two values to denote a 
keyword. The BASIC interpreter recognizes the two values as a token. Here 
is a table of all the command keywords and the token values associated with 
them. 


Command Token Command Token 
END $80 FOR $81 
NEXT $82 DATA $83 
INPUT# $84 INPUT $85 
DIM $86 READ $87 
LET $88 GOTO $89 
RUN S8A IF $8B 
RESTORE $8c GOSUB $8D 
RETURN $8E REM S8F 
STOP $90 ON $91 
WAIT $92 LOAD $93 
SAVE $94 VERIFY $95 
DEF $96 POKE $97 
PRINT# $98 PRINT $99 
CONT S9A LIST $9B 
CLR $9C CMD $9D 
SYS S9E OPEN SOF 
CLOSE SAO GET SA1 
NEW $A2 TAB ( $A3 
TO SA4 FN SA5 
SPC ( SA6 THEN SA7 
NOT SA8 STEP SA9 
+ SAA - SAB 
* SAC / SAD 
- SAE AND SAF 
OR SBO > $B1 
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Command Token Command Token 
= SB2 < $B3 
SGN SB4 INT SB5 
ABS SB6 USR SB7 
FRE SB8 POS SB9 
SQR SBA RND SBB 
LOG SBC EXP SBD 
cos SBE SIN SBF 
TAN $co ATN $Ccl 
PEEK $C2 LEN $C3 
STRS$ $c4 VAL SCS 
ASC $C6 CHRS $C7 
LEFTS $C8 RIGHTS $c9 
MIDS SCA GO $CB 
RGR “SCC RCLR SCD 
POT SCE $02 BUMP SCE $03 
PEN SCE $04 RSPPOS SCE $05 
RSPRITE SCE $06 RSPCOLOR SCE $07 
XOR SCE $08 RWINDOW SCE $09 
POINTER SCE SOA JOY SCF 
RDOT SDO DEC $D1 
HEXS $D2 ERRS $D3 
INSTR $D4 ELSE $D5 
RESUME SD6 TRAP SD7 
TRON $D8 TROFF SD9 
SOUND SDA VOL SDB 
AUTO SDC PUDEF SDD 
GRAPHIC SDE PAINT SDF 
CHAR SEO BOX SE1 
CIRCLE SE2 GSHAPE $E3 
SSHAPE SE4 DRAW SE5 
LOCATE SE6 COLOR SE7 
SCNCLR SE8 SCALE SEQ 
HELP SEA DO SEB 
LOOP SEC EXIT SED 
DIRECTORY SEE DSAVE SEF 
DLOAD SFO HEADER SF1 
SCRATCH SF2 COLLECT $F3 
COPY SF4 RENAME SF5 
BACKUP SF6 DELETE SF7 
RENUMBER SF8 KEY SF9 
MONITOR SFA USING SFB 
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UNTIL SFC WHILE SFD 
BANK SFE $02 FILTER SFE $03 
PLAY SFE $04 TEMPO SFE $05 
MOVSPR SFE $06 : SPRITE SFE $07 
SPRCOLOR SFE $08 RREG SFE $09 
ENVELOPE SFE SOA SLEEP SFE SOB 
CATALOG SFE $0C DOPEN SFE SOD 
APPEND SFE SOE DCLOSE SFE SOF 
BSAVE SFE $10 BLOAD SFE $11 
RECORD SFE $12 CONCAT SFE $13 
DVERIFY SFE $14 DCLEAR SFE $15 
SPRSAV SFE $16 COLLISION SFE $17 
BEGIN SFE $18 BEND SFE $19 
WINDOW SFE $1A BOOT SFE $1B 
WIDTH SFE $1C SPRDEF SFE $1D 
QUIT SFE $1E STASH SFE $1F 
FETCH SFE $21 SWAP SFE $23 
OFF SFE $24 FAST SFE $25 
SLOW SFE $26 
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8.5 The Character Set 


On the following pages you find two character sets, the normal 
Commodore character set (the only one in the American version) and the 
DIN (German [Deutshe] Industry Normal) foreign language set. They 
contain information about the address at which the matrix of the character is 
located, as well as the value of the POKE code in parentheses. 


The C-128's sold in Europe contain two character sets, the normal 
Commodore character set and in the German versions a DIN (German 
[Deutshe] Industry Normal) character set for foreign languages. C-128s 
sold in other foreign countries may have a different International character 
set than the one presented here, we have checked only the American and 
German versions. See the differences in the ROM listing starting at $FC80 
thru $FEFF and at $C012. Notice that the KEY vector at $FF9F in the 
Kernal Jump Table points to the same location but that the address at that 
location ($C012) is different for the American ($C55D) and German 
($FC87) versions. The German version jumps to the standard keyboard 
matrix reading routine ($C55D) at address $FCC3. On the International 
versions you can switch between the two character sets by pressing the 
ASCII/DIN key (CAPS LOCK on American versions). The key is polled 
through interrupts, meaning that it is recognized immediately when it is 
pressed. The character set on the 40-column screen changes immediately 
and on the 80 column screen the computer pauses for about one second. 
This is because the computer has to copy the character set to the VDC 
(80-column controller) memory because this controller does not get its 
characters from the ROM. 


Physically the two character sets, ASCII and DIN, are at the same 
address, namely $D000. When the ASCII/DIN key is pressed, the two 
character sets are exchanged via hardware. 


To save space in the book, we have not pictured the reverse characters. 
To obtain the address of these characters, add the offset $0400 to the base 
address of the normal character. 


You can easily change the character set for the 80-column controller by 
changing the corresponding addresses in the VDC RAM. Chapter 5 contains 
more information about this and other aspects of the VDC. 


You can also change the VIC character set by changing the character 


set pointer in CIA 1. More information about this can be found in the 
chapter on the VIC chip, Chapter 2. 
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8.6 The Keyboard Matrix 


The keyboard of the C-128 is designed in the form of a matrix. Imagine 
it as a network (or grid) of lines. In the horizontal plane you have 11 lines 
and in the vertical, 8 lines. When you press a key, you close the normally 
open contact between a horizontal and a vertical line. The computer can then 
recognize which key was pressed. 


That's the basic principle of the keyboard matrix. In practice it is much 
more complicated since a connection is not available on an I/O component 
for each of the 11 horizontal and 8 vertical lines. The Commodore 128 has 
two components with a total of three ports that have the task of reading the 
keyboard matrix. Lines PAO-PA7 and PBO-PB7 are available on CIA 1. 
These 16 lines can be programmed as either input or output. Theoretically it 
is also possible to transfer 16-bit values via these lines. Lines PAO-PA7 are 
responsible for the first 8 matrix lines of the keyboard circuit. The missing 
three lines, believe it or not, are connected to the VIC chip. 


The VIC chip built into your C-128 has 2 more registers than the 
component used in the Commodore 64. The first is the register at address 
$D030, is responsible for the clock frequency at which the computer will 
operate (1 or 2 MHz). This register does not interest us here. The other new 
register is at address $D02F. The additional three keyboard matrix lines are 
polled via this register. The register offers us bits 0-3 for this, but only bits 
0-2 are used, since only three additional matrix lines need to be polled. The 
8 matrix columns are addressed via the lines PBO-PB7 of CIA1 via port B. 


The actual keyboard polling follows this pattern. Port A of CIA 1 (lines 
PAO-PA7 are brought low; that is, the register is loaded with the hex value 
$00). In addition, the remaining three lines must also be loaded with a low 
value in the VIC register. Port B (lines PBO-PB7) of CIA 1, switched to 
input, is then read. If a key is pressed at some point, one of the input lines 
on port B will also be switched to a low level. This is recognized by 
reading port B and finding a value other than the high value ($FF). At this 


point, we can determine that a key was pressed. Which key it is cannot yet 
be determined. 


_ The exact position within the keyboard matrix is then determined by 
bringing each of the 11 matrix lines low in turn and reading port B each 
time. Now we can tell in which line and column of the matrix the key was 
pressed. A count register is used during this process in order to record the 
assignment number of the pressed key. Polling the joystick is done in the 
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same manner as the normal keyboard polling because the joystick 
connections are wired in parallel to some keys on the keyboard. 


In the schematic on the next page you can recognize the physical layout 
of the keys and their connections to the three ports. One point of interest is 
that, while the keys on the keypad produce the same results on the screen as 
the regular digit keys, they can be differentiated from them. This applies for 
the cursor control keys and the other duplicate keys on the keyboard. 
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8.7 The Computer Modes 


As you must know by now, your Commodore 128 contains three 
computers in one. You can select whether you want to have a: 


* CP/M 3.0+ computer 
* Commodore 128 
* Commodore 64 


The various components in the computer are switched on or off 
depending on the computer mode. In order to show you graphically which 
components are involved, we have made the following three figures. 
Shaded areas designate the devices active in the given mode while unshaded 
areas indicate those which are inactive. Inactive means that the MMU does 
not permit access to these components. In the C64 mode, access to the 
MMU itself is prohibited (for compatibility reasons). 
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8.7.1 The power-up modes 


On the preceding three pages you see three diagrams. These schematic 
drawings of the chips and circuits in your Commodore 128 should make it 
clear to you which ROMs and controllers are active in each of the three 


modes of operation. The active components in each operating mode are 
shaded. 


As a rule, the computer always tries to enter the 128 mode when it is 
turned on. But there are some special cases in which the computer is 
directly switched to a different operating mode. This is the case when you 
insert a CP/M diskette into the disk drive. The CP/M mode with the Z-80 
processor active is then enabled via the boot routine in the 128 mode. 
Another possibility arises when you insert a Commodore 64 cartridge in the 
expansion port. This is also noted during the power-up procedure and the 
computer switches directly to the C-64 mode responsible for this cartridge. 


Another way of entering the C-64 mode is by way of the GO 64 
command. After an appropriate request for confirmation of the command, 
the computer is switched to the C-64 mode. It is also possible to get around 
the BASIC interpreter's confirmation request and enter the C-64 mode 
directly. You can do this by directly addressing the kernal routine for 
reconfiguration with a SYS command. The appropriate SYS command is: 


SYS 57931 or SYS DEC("E24B") 


These are, so to speak, the "official" options for entering another 
operating mode, especially the C-64 mode. But there are a few "unofficial" 
ways, which we discovered by accident while documenting the kernal and 
BIOS. 


One such method involves the Commodore key, designated with the 
Commodore logo and found in the lower left-hand corner of the keyboard. 
If you hold this key down during the power-up procedure, the computer 
will enter the C-64 mode directly without trying to load a boot sector from 
the diskette or entering the 128 mode. The obligatory confirmation question 
is also avoided with this method. This trick with the Commodore key works 
not only when the computer is being turned on, but also if you hold it down 
while pressing the reset button on the right side. 
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Another interesting option affecting the power-up state of the computer 
involves holding down the RUN/STOP key while turning the computer on. 
This causes the computer to enter the 128 mode, but control is immediately 
passed to the built-in monitor. Furthermore, the kernal boot routine is not 
executed first. We say "first" because the test to see if the RUN/STOP key 
is pressed is performed before the kernal boot routine is executed and the 
test routine then jumps to the monitor in the form of a JSR command. When 
you exit the monitor with the X command, then the computer resumes 
operation with the normal boot routine and general initialization, provided 
you have not changed the return address on the stack. 


These methods are of interest both to the assembly-language 


programmer and to the user who wants to use his old C-64 programs 
without having to go through the boot routine. 
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Chapter 9: The Hardware 


Imagine the following tricky situation in which the developers are asked 
to construct a computer that, on the one hand, is completely compatible with 
the existing C-64, and on the other hand, is to be outfitted with completely 
new, state-of-the-art features. 


This task is difficult enough, but as icing on the cake, a Z-80 
microprocessor should be added to the whole thing in such a way that it can 
peacefully coexist in the same system with the other processor. 


You can imagine the difficulties involved. But this idea is not entirely 
new. Some of you no doubt remember the infamous CP/M cartridge for the 
Commodore 64, which was supposed to allow it to use the CP/M operating 
system. This expansion contained a Z-80 processor in addition to a few 
control components. 


So you take a C-64, a CP/M cartridge, an additional 64K of memory, a 
new operating sytem and BASIC, mix them all together and let it all simmer 
for a few months. 


We have no doubt that the first C-128 prototype used a C-64 as a basis. 
The tough part must have been in trying to put the whole thing together on a 
single board. 


Fortunately, Commodore has its own semiconductor manufacturing 
company (MOS). It was clear that there was no way the necessary control 
components for the coordination of the processors and switching both 
memory banks and operating systems would fit onto a reasonably-sized PC 
board using current TTL technology. MOS had to design a special 
large-scale intergrated circuit, the MMU 8722, to handle all of the 
management logic. 


This undertaking proceeded very well when the VIC chip, taken from 
the C-64 (but now known as the 8564), and the 6510 processor (now the 
8502) were submitted to redesign. A new video controller (8563), which 
can display 80 columns in color, was added. What good is such a capable 
computer, which can run CPM, if it is limited to 40 columns per line? 


The address manager of the C-64 was refurbished to become the 8721. 


It has 23 (significant) input lines and 16 outputs. We will discuss the details 
of this and other devices shortly. 
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The question will no doubt arise, as to why we have not included a 
complete circuit diagram in this book. The diagram takes up 4 sheets of 
normal-sized paper; each so full of components, that reduction would be out 
of the question. We therefore decided to divide the circuit into blocks, into 
bite-sized and (hopefully) clear function groups within the text. 


In general the diagrams are designed so that the signal flow is from left 
to right. At the left you find all input lines and at the right all of the output 
lines. The I/O block is an exception to this. Here it was not possible to 
retain this principle because space was too scarce and the interfaces are not 
clearly assigned as input or output. 


Signal names prefixed by a minus sign are active low, meaning that 
they are "true" (or active) when the logical signal =0. Bus lines are 
emphasized in the diagrams. Everything having something to do with the 
address bus is dotted, the data bus has diagonal stripes, and all of the 
remaining bus-like structures are checkered. 


The components filled with the rings are intended to indicate that 
something special happens to the input signals which cannot be represented 
individually. In general, there is not a single IC behind it, but a whole 
system of them. 


The CPU 


Naturally there isn't just one processor, but two. The block diagram on 
the next page should, despite its simplicity, convince you that a good deal of 
switching effort is required to allow two microprocessors to use the same 
system components, even if not at the same time. 


It is clear that only one processor can be running at any given time. The 
other must wait during this period. The trick is to get the processor in 
question to actually stop (that is, to interrupt it in such a manner that it can 
resume its work at a later time without any problems) and not crash when 
the system bus is blocked off. This can be done in various ways: 


The bus must be given up (and this applies to both processors) when 
the 40-column video controller has to access the RAM, in order to refresh 
the screen. The lines BA (Bus Available) and AEC (Address Enable 
Control), both of which come from the VIC chip, are used to signal this 
condition to the switching logic. 
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The second possibility is offered by the DMA line (Direct Memory 
Access), which comes from the expansion slot. Here too, both processors 
must relinquish the bus because the system bus is controlled from the 
outside in these cases, by a RAM expansion or other add-on hardware. 


The programmer (or CP/M) is responsible for the third variant. Here the 
two processors can be selected with the -Z80EN line. This signal comes 
from the MMU. 


The meaning of additional input lines: 

Z80PHI is the system clock created by the VIC for the Z-80. 

-RES resets the processors, which causes the Z-80 to start 
execution at address 0, and the 8502 to start at the reset 
vector in the ROM. 

-IRQ is the interrupt line connected to both processors by 
means of which devices like the CIAs can signal the 
occurrence of an event. 

-NMI is also an interrupt, but only for the 8502. This signal 
is derived from the RESTORE key. 

CASS SENSE comes from the Datasette and indicates that the 
PLAY button is pressed. 

CAPLK SENSE indicates the status of the SHIFT LOCK key . 

1-2MHZ is the system clock for the 8502 and is provided by the 
VIC. This line supplies a clock signal of 1 or 2 MHz, 
depending on bit 0 in register 48 of the VIC. 


The output lines: 

R/-W tells connected peripheral components whether data is 
to taken from the bus or whether they are to supply the 
bus with data on their part. 

-M1 is a Z-80 specific signal and means that the processor 
is currently fetching a command byte (in contrast to an 
operand) from the data bus. This line is used to 
prevent access to peripheral ICs during M1 (which 
could otherwise happen because the I/O addresses in 
the hardware are "normal" memory addresses). - 

-Z80V/0 signals an I/O access of the Z-80 by means of the 
command IN or OUT. The lock-out mentioned above 
is removed by this signal. 

DO-7 comprise the data bus. 

AQ-15 make up the address bus. 

LORAM puts RAM in place of the BASIC ROM in the C-64 
mode. 
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HIRAM is like LORAM, except the kernal ROM is replaced by 
RAM 


CHARENmakes it possible to read the character generator. 
Normally the color memory and I/O lie in this range. 

CASS WRT is the write line for the Datasette. 

CASS MTR controls the Datasette motor. 


The address logic 


In order to give you an idea of the complexity of this function block, we 
have illustrated the complete memory layouts for the C-64 and 128 modes 
on the following two pages. Try to imagine the memory in layers. One layer 
applies as the user surface, in which changing combinations are possible. 
The MMU is responsible for the global division (operating mode, bank 
selection, processor). Depending on this, the AM brings the desired 
portions to the surface, that is, it generates the necessary selection signals. 


In connection with this we would like to list the pin layouts of these two 
ICs, as well as a description of each pin: 


2 -RES 

3-10 TA8-15. This is the translated address bus. The address A8-15 are 
"translated" depending on the configuration. For example, the 
address $0000 must be converted to $D000 during Z-80 operation, 
because part of the BIOS is located here and after reset the Z-80 
starts execution at address 0. 

11+12 -CASO and -CAS1. These two signals are responsible for the 
selection of the RAM bank, depending on register 1. 

13-15 IWOSEL, ROMBANKHI, and ROMBANKLO. These signals are 
used to control the AM and result from the combination of bits 0-5 
of register 1. 

16 GAEC results from the combination of DMA and AEC and permits 
the MMU to take the lines LA8-15 from the bus. 

17 MUX is created by the VIC. The MMU uses this to activate the 
signals -CASO and -CAS1. 

18-31 A0-15 : whereby the lines A6/7 and A4/5 are externally combined 
into one signal. The MMU also decodes its selection signal from 
the address bus. 

35-42 D0-7 

43 -Z80EN reflects bit 0 of register 5 and is responsible for selecting 
the processor. 
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44 -FSDIR corresponds to bit 3 of register 5. Here the data direction 
of the serial bus -SRQIN, which is responsible for the data clock 
for the high-speed transfer using the 1571 disk drive, is switched. 

45-46 -GAME and -EXROM come from the expansion slot and can be 
read as bits 4 and 5 of register 5. 

47 64/-128 is a control line for the AM and corresponds to bit 6 of 
register 5. 

48 Pla comes from the keyboard and can be read as bit 7 of register 


With a few exceptions we will simply list the AM pins, since no set 
assignment can be given to many of them because of the complex internal 
combination possibilities. Imagine how many combinations have to be 
checked with 23 input bits (about eight million). Naturally, not that many 
are used, since the IC has only 16 output lines, of which a maximum of 
only four can reasonably be active at any given time. 


You can easily recognize the function of the outputs from the names and 
the block diagrams, since they are really only chip select lines. 


1-6 A15-10 

7 VICFIX. This input is tied to ground on the board via jumper J2. 
The significance of this line is not clear. 

9 AEC 


10 R/-W. This signal is evaluated such that, at least in the C64 mode 
(nothing is known about the C128 mode), write access to the ROM 
address area always write to the "hidden" RAM, even if it is not 
explicitly selected. 

11-12 -GAME and -EXROM exchange the BASIC and/or kernal ROM for 
the software found in a cartridge in the C64 mode, as is the case for 


games, for example. 
13 -Z80EN 
14 -Z801/O 
15 64/-128. Here it is decided which kernal or BASIC is active. 
16 VOSEL 
17-18 ROMBANKHI and ROMBANKLO 
19-20 MA4-5 
21 BA 
22-23 LORAM and HIRAM 
25 CHAREN 
26 -VA14 
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27 128/-256. This signal indicates what type of ROM is in the sockets 
ROM1 and ROM3. It is possible to have two 16K ROMs in the 
sockets ROM1/4 and ROM2/3 form one 32K ROM each. It is 
possible to specify one or the other possibility during production. 
In the second case, the free sockets ROM2 and ROM4 are not free 
for other purposes! 

30-31 -ROML and ROMHI go to the expansion slot. 

32 CLRBANK switches between two possible banks of the color 
RAM. The dependency of this signal is not yet known. -VA14 may 
play a role here. 

33 -FROMI (Funtion ROM Internal) 

34-37 -ROM4 to -ROMI1 

38 -IOCS is the general selection for all peripheral ICs. The sole 
exception is the MMU, which decodes itself. 

40 -DWE is the write signal for the RAM banks. 

41 -CASENB is the address strobe for the RAM banks (simultaneous 
selection signal). 

42 -VIC 

43 -IOACC signals to the VIC an access to a peripheral IC, which 
brings the system clock down to 1 MHz if it was previously at 
2MHz. This is necessary because the peripheral components can be 
supplied only with 1MHz, so this signal synchronizes them to the 
8502. 


44 -GWE is the write signal for the color RAM. 

45 -COLORAM 

46 -CHAROM 

47 -CAS is actually responsible for the creation of -CASENB. 


The greatest portion of the address logic is described in the pin 
descriptions. Worthy of mention is the funnel-shaped symbol in the upper 
right-hand corner of the diagram. This is the address multiplexer. As you 
may already know, not all of the address lines are applied to the dynamic 
RAMs at once, but one half at a time to the same lines. For this reason, the 
two halves of the address bus must be brought together. The decision as to 
which half is applied to the lines is taken care of by the MUX signal. The 
RAM chip recognizes the bottom half on -RAS and the top half on -CAS. 


The RAM 
The RAM consists of two banks of 64K each. No more are possible! 


Banks 2 and 3 indicated in the memory map are to be understood as external 
expansion and are accessed in a different manner. 
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One interesting thing in the block diagram is the buffer at the bottom. 
In cases of memory access from the outside, this supplies the top half of the 
address bus. 
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The ROMs 


The function block contains the combined "intelligence" of the 
computer. The selection signals for the individual ROMs come from the 
AM. Worthy of mention is the function of the 64/128 signal. If a 32K ROM 
is inserted in ROM1, this signal switches between the two halves. The 
lower half contains the kernal for the C-128 and the upper half contains the 
entire operating system software for the C-64. Jumper J6 must be connected 
on the PC board for this. 


TA12 provides for the conversion of the area at $D000 to $0000 for the 
Z-80 operation. 
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40 column 


The jumble of bus lines in this section is because the VIC controls the 
system bus itself in order to get the information necessary to refresh the 
screen picture from the RAM. To do this, it must stop the currently active 
processor by means of the BA and AEC lines, so that no concurrent RAM 
accesses can occur. As much as possible, however, it chooses a time when 
the processors will not be disturbed. It uses the clock gaps during which the 
computer is not accessing the bus. An exception to this is when sprites are 
displayed. Here the VIC must get the entire point map, which in the case of 
a "normal" character it would get from the character generator, from the 
RAM, which naturally takes time. 


So that the VIC "knows" when it may do something, it is in charge not 
only of the screen display, but of the clock generation for the whole 
computer. So at any time it is informed about the current state of the system. 
To display a character, it first gets the ASCII value of the character from the 
RAM, then the corresponding bit pattern from the character generator, and 
finally the color information from the color RAM. 


This last point, by the way, is a special case: The color RAM is 
connected directly to the VIC via its own four-bit wide data bus, so that the 
ASCII value and the color arrive simultaneously when the refresh address is 
given. 


Another interesting feature is the composition of the RAM address. It is 
placed on the bus in two halves, whereby the base address of the video 
RAM is formed from bits VA6-7 of the VIC and bits VA14-15 of CIA2. 
The video RAM is therefore movable within a large area. 


In the upper left-hand corner is the master clock. This is an oscillator 
running at 17.73447 MHz. This strange frequency was chosen for the color 
creation in the PAL standard. The VIC produces the various system clocks 
from this clock. 


If by chance you are familiar with the VIC in the C-64, you may notice 
something unusual about this version of the VIC. A bus heads to the right 
with the designation KO-2. These lines are responsible for the column 
selection of the ten-key pad. 


We should mention the little box in the lower left corner. This is a 
device similar to the buffer in the RAM block for the lower half of the 
address bus. 
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80 column 


Although this section represents one of the most interesting features of 
the computer, it offers little in the way of circuit technology. The reason for 
this is the 80-column video controller which MOS (a subsidiary of 
Commodore) developed for this computer. This video controller contains all 
of the logic for accessing the video RAM, color RAM, and character 
generator, as well as the necessary circuitry for creating the screen picture. 


The reason the function diagram is so uncluttered is that the interface to 
the system consists only of the data bus and one address line. But the main 
reason is that only a single memory component can be seen, namely a 
dynamic RAM with 16K. Actually there two IC's with 4 bits each. But 
there is nothing resembling a character generator or color RAM. 


The trick lies in the fact that everything is done in the RAM, even the 
character generator. Since this normally consists of a ROM, because the bit 
patterns of the characters are normally unchangeable, the character generator 
from the 40-column section is copied into this RAM when the 80-column 
mode is switched on. 


You may wonder how the data gets to the video RAM since it has no 
direct connection to the system. All communication with the video RAM is 
done through the controller. First, the controller loads the low order byte of 
the register that specifies the RAM address. Next the data is loaded. Then 
the desired address is passed, followed by the data. The controller ensures 
that the data end up in the right place. This isn't the fastest way of doing 
things, of course, but it works. 


The little box to the left of the video controller is an oscillator that runs 
at 16 MHz. This is the normal frequency for the Dot Clock in 80-column 
monitors. The two boxes in the lower middle create a clean reset signal 
(from which -DRESET is derived. -DRESET is used to reset one of the 
built-in disk drivesand to form the -NMI pulse from the RESTORE key. 
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Input/Output 


This section looks quite chaotic largely because all of the connections to. 
the outside world run through it. 


Let's start atthe top left. There we find the two joystick ports. Their 
digital components, the stick movement and fire button, are wired in parallel 
to the keyboard matrix. This is why characters appear on the screen when 
the stick is moved. The analog components (such as those for the paddles) 
are multiplexed by an analog switch because the SID has only two analog 
inputs, but two pairs must be read. 


Below the analog switch is the CIA1. This has by far the largest share 
of work to do. It is responsible for reading the keyboard, as well as the 
serial bus. Here Commodore makes an improvement over the C-64. 
Instead of constructing the data bytes from the disk drive one bit at a time, 
this task is automatically assumed by the CIA. An entire byte is simply 
loaded into the shift register and the CIA shifts it out to SP automatically. It 
works the same way in the opposite direction. The bit speed is dependent on 
the clock at SP. 


Here the -FSDIR signal from the MMU takes on significance. It is, as 
already mentioned, a direction switch for this same clock which is always 
supplied by the sending device, sometimes the computer and sometimes the 
disk drive. This clock is sent over the -SRQIN line since this line is not 
used by devices that cannot use the fast serial mode. 


A good half of CIA2 is dedicated to the user port, but part of it is also 
used for the serial bus. Bits VA14-15 are also created for switching the 
video RAM. 


On the left side is a signal name which you probably cannot place 
(normally the signal names are self-evident). This is 9VAC. This is nothing 
other than 9-Volt alternating current from the power supply. What purpose 
does this voltage serve on the board? Quite simple: This signal is rectified 
and limited and used as the clock for the real-time clocks in the CIAs. 


This is the end of our little excursion into the hardware. We hope that 
you have gained at least some insight into the operation of the computer. 
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Chapter 10: Decimal-Hexadecimal-Binary Conversion Table 


Dec. 
#000 
#002 
#004 
#006 
#008 
#010 
#012 
#014 
#016 
#018 
#020 
#022 
#024 
#026 
#028 
#030 
#032 
#034 
#036 
#038 
#040 
#042 
#044 
#046 
#048 
#050 
#052 
#054 
#056 
#058 
#060 
#062 
#064 
#066 
#068 
#070 
#072 
#074 
#076 


Hex 
$00 
$02 
$04 
$06 
$08 
SOA 
SOC 
SOE 
$10 
$12 
$14 
$16 
$18 
S1A 
Sie 
$1E 
$20 
$22 
$24 
$26 
$28 
$2A 
$2C 
$2E 
$30 
$32 
$34 
$36 
$38 
$3A 
S3c 
$3E 
$40 
$42 
$44 
$46 
$48 
S4A 
$4C 


Binary 

%00000000 
%00000010 
%00000100 
%00000110 
%00001000 
%00001010 
%00001100 
%00001110 
%00010000 
%00010010 
%00010100 
%00010110 
%00011000 
%00011010 
%00011100 
%00011110 
%00100000 
%00100010 
%00100100 
%00100110 
%00101000 
%$00101010 
%00101100 
%00101110 
%00110000 
%00110010 
%00110100 
%00110110 
%$00111000 
%00111010 
%00111100 
%00111110 
%01000000 
%01000010 
%01000100 
%01000110 
%01001000 
%01001010 
%01001100 
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Dec. 
#001 
#003 
#005 
#007 
#009 
#011 
#013 
#015 
#017 
#019 


Hex 
$01 
$03 
$05 
$07 
$09 
SOB 
SOD 
SOF 
$11 


Binary 

%00000001 
%00000011 
%00000101 
%00000111 
%00001001 
%00001011 
%00001101 
%00001111 
%00010001 
%00010011 
%00010101 
%00010111 
%00011001 
%00011011 
%00011101 
%00011111 
%00100001 
%00100011 
%00100101 
%00100111 
%00101001 
%$00101011 
%00101101 
%00101111 
%00110001 
$00110011 
%00110101 
%$00110111 
%00111001 
%00111011 
%00111101 
%00111111 
%01000001 
%01000011 
%01000101 
%01000111 
%01001001 
$01001011 
%01001101 
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Binary 

301001110 
%01010000 
%01010010 
%01010100 
01010110 
%01011000 
%01011010 
%01011100 
%$01011110 
%01100000 
%01100010 
%01100100 
%01100110 
%01101000 
301101010 
%01101100 
%01101110 
%01110000 
%01110010 
%01110100 
301110110 
%$01111000 
%01111010 
%01111100 
%$01111110 
%10000000 
%10000010 
10000100 
10000110 
%10001000 
10001010 
%$10001100 
%$10001110 
10010000 
%10010010 
%10010100 
10010110 
%10011000 
%10011010 
$10011100 
%$10011110 
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#101 
#103 


#111 
#113 
#115 
#117 


#131 
#133 
#135 
#137 
#139 
#141 
#143 
#145 
#147 
#149 
#151 
#153 
#155 
#157 
#159 


$01001111 
$01010001 
%01010011 
$01010101 
$01010111 
%01011001 
%01011011 
$01011101 
$01011111 
%01100001 
%01100011 
%01100101 
$01100111 
%01101001 
$01101011 
%01101101 
%01101111 
$01110001 
$01110011 
$01110101 
%01110111 
%01111001 
$01111011 
%01111101 
%01111111 
%10000001 
%10000011 
%10000101 
%10000111 
%10001001 
%10001011 
%10001101 
%10001111 
%10010001 
%10010011 
%10010101 
$10010111 
%10011001 
%10011011 
$10011101 
$10011111 
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#240 


Binary 

%10100000 
%10100010 
%10100100 
%10100110 
%10101000 
%$10101010 
%10101100 
%$10101110 
%10110000 
%10110010 
%$10110100 
%10110110 
%10111000 
%10111010 
%$10111100 
%$10111110 
%11000000 
%11000010 
%11000100 
%11000110 
%11001000 
%11001010 
%11001100 
%$11001110 
%11010000 
%11010010 
%$11010100 
%11010110 
%11011000 
%11011010 
%$11011100 
%11011110 
%11100000 
%$11100010 
%$11100100 
%$11100110 
%$11101000 
%11101010 
%$11101100 
%$11101110 
%$11110000 
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#179 
#181 
#183 
#185 
#187 
#189 
#191 
#193 
#195 
#197 
#199 
#201 
#203 
#205 
#207 
#209 
#211 
#213 
#215 
#217 
#219 
#221 
#223 
#225 
#227 
#229 
#231 
#233 
#235 
#237 
#239 
#241 


Binary 

%10100001 
%10100011 
%$10100101 
%$10100111 
%$10101001 
%$10101011 
%10101101 
%10101111 
%10110001 
%$10110011 
%10110101 
%10110111 
%10111001 
%10111011 
%$10111101 
%$10111111 
%$11000001 
%11000011 
%11000101 
%11000111 
%11001001 
%$11001011 
%11001101 
%11001111 
%$11010001 
%$11010011 
%$11010101 
%$11010111 
%11011001 
%$11011011 
%$11011101 
%11011111 
%$11100001 
%$11100011 
%11100101 
%$11100111 
%$11101001 
%$11101011 
%$11101101 
%$11101111 
%$11110001 
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611110010 
11110100 
%11110110 
%$11111000 
%$11111010 
$11111100 
%$11111110 
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11110011 
11110101 
SL PATOL 
11111001 
$1711 1012 
11111101 
17111111 
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ATTRIBUT-RAM 
BACKGROUND COLOR 
BASE ADRDESS 
BANK 

BASIC-7.0 

BASIN 
BAUD-RATE 
BCD-FORMAT 
BIT-MAP 
BLOCK-CURSOR 
BOOT-BLOCK 
BOOT-ROUTINE 
BOOT-SECTOR 
BSOUT 

BURST 

C-64 MODE 

C-128 MODE 
CARTRIDGE 
CASSETTE 
CBM-CODE 

CHAR GENERATOR 
CHAR-MODE 
CHARACTER-ROM 
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307 
73, 79, 80, 81 
73, 83 


97, 108, 120 

112 

101 

139, 155, 297, 303 
24, 34, 43, 52, 65, 75 


1 

152, 188, 387, 400 
188 

348 

365, 367 

400, 458 

300, 400 

13, 302, 413 

4, 324, 351, 372 


189 

40, 107, 290, 438 
38, 45, 107 

451 

354 

414 

415 

55, 56, 59, 63, 179, 451 
35, 63, 80, 451 
38, 40, 64, 80 
310 

355 

359 


66 
64, 67, 143, 312 
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CLOSE 

CLRCH 

CMPARE 

CMPFAR 

CNT 

COLOR-RAM 
COMMON-AREA 
CONFIGURATION 
CONFIGURATION INDEX 


CONFIGURATION REGISTER 


CP/M-MODE 


CURSOR 

CURSOR MODE 

DATA 

DATASETTE 

DCLCH 

DDR 

DECAY 
DEVICE-REQUEST-FAST 
DISK DIRECTORY 


EDITTOR 

ENVELOPE GENERATOE 
ESC-SEQUENCE 
EXPANSION-PORT 
EXROM-LINE 
EXTENDED-COLOR-MODE 
FAST-MODE 

FETCH 

FILTER 

FILTER FREQUENCY 
FILTER RESONANCE 
FLAG 

FORCE-LOAD 
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356 
359 
aay 147, 296, 383 


399 

3, 182, 458, 463 
138, 143, 464 
131 

58, 60, 64 

59, 60, 61 

10, 12, 64, 113 
181 


113 
64, 66 
4 


400 

56, 57 

77, 83, 84 
69 


233 

438 

13, 152, 380, 400 
38 


133, 182, 301 
49, 50 


67, 313, 364, 400 
144, 145, 296, 380 
78, 79, 87 

78-87 

78-87 

55, 59 

61 


Abacus Software 


C-128 Internals 


a 


FUNCTION KEYS 
GAME-LINE 
GETCONF 

GO64 

GRAPHICS 

GRAPHIC MEMORY 
HANDSHAKE 
HI-RES-GRAPHIC 
HI-RES-MODE 
HOST-REQUEST-FAST 


HRF 

VO BASE 
V/O-PORTS 
ICR 
INPUT-MODE 
INTERRUPT 


IRQ 
IRQ-ROUTINE 
IRO-VECTOR 


IRR 
JMPFAR 


JOYSTICK 
JSRFAR 


KERNAL-ROUTINES 


MEMORY-MANAGEMENT 
MMU 


MODE-CONFIGURATION 
MONITOR 

MOVSPR 
MULTI-COLOR 
MULTI-COLOR-MODE 
NDAC 
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260, 285, 292, 400, 421 
133, 182 

147, 156, 400 

182 


41, 120 
120, 121, 421, 422, 423 


10 
109, 120-126 
42, 109, 120-126 


35, 180 

143, 180, 296 
240, 391, 399 
179, 344 


35 
148, 156, 294, 296, 383, 
400 


63, 65 
148, 156, 294, 296, 383, 


400 
144, 151, 400, 401, 402, 
427 
392, 393, 396, 397, 451 


254, 457 

129, 145, 468, 469 

129, 136, 139, 146, 294, 
454, 463, 466 

133 
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NMI 


NMI-ROUTINE 
ONE-SHOT 
OPEN 

PADDLE 
PAGE-POINTER 
PHOENIX 
POKE 
POSITION 


RAM-BANK 
RASTER LINE 


RUN/STOP-RESTORE 
SAVSP 

SCROLL 

SDR 

SECONDARY ADDRESS 
SERIAL BUS 
SETBANK 

SETLFS 

SETNAM 

SETMSG 

SETMO 

SETTIM 

SID 

SLOW-MODE 
SMOOTH-SCROLLING 
SPRITE 
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143, 178, 296, 298M 321, 
399 

323, 391 

61 


93, 422 

131, 135, 136, 297 
131, 132, 134 

25 

374 

377 

78, 83, 84 

66, 182, 293 

88 

40, 474 

8, 12, 64, 314, 352 
64 


67, 109 

370 

276 

58, 59, 60 

69, 161, 309 
65, 66, 353, 360 


374 
73, 75, 76, 80, 87, 100, 425 
67 


51, 110 
21, 22, 25-34, 36, 312, 425 
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ST 

STACK POINTER 
STASH 

STATUS BYTE 

STOP 
STOP/RESTORE 
STOP BIT 

SUSTAIN 
SYNCHRONIZATION 


SYSTEM CONTROL MESSAGES 


SYSTEM VARIABLE 
SWAPPER 

TIMER 

TKSA 

TOD 
TOD-REGISTER 


UPDATE-ADDRESS 
UPDATE-REGISTER 
USER-PORT 

VDC 


VDC-CHIP 

VDC-RAM 
VDC-REGISTER 
VDC-MEMORY 
VECTOR 

VECTOR TABLE 
VERIFY 
VERSIONS-REGISTER 
VIC-CHIP 


VIDEO-CONTROLLER 
VIDEO-RAM 

WAVE FORM 

hie COUNT-REGISTER 
ZERO PAGE 

40 COLUMN 

80 COLUMN 


12, 74 

136, 137, 148 

144, 146, 296, 380 
166 

177, 375 

63, 178 


10 
78, 83, 84 
8 


8 

376, 377 
74, 136 
287, 400 
60 


309 

55, 57, 58, 61 

57, 58 

435 

373 

67, 68, 69, 164, 310 
67, 68, 69, 164, 310 


93, 95-110, 298, 299, 303 
93, 290 

161, 413 

294 

365 

139 

aA 24, 25, 27, 35, 38, 51, 
5 


133, 182, 184 
136, 404 

476 
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Optional Diskette 


C-128 INTERNALS 
Optional diskette 
@ 





For your convenience, the program listings contained in this book are 
available on a 1541 formatted floppy disk. 


You should order the diskette, if you want to use the programs, without 
typing them in from the listings in the book. 


All programs on the diskette have been fully tested. You can change the 
programs for your particular needs. The diskette is available for $14.95 + 
$2.00 ($5.00 foreign) for postage and handling. 


When ordering, please give your name and shipping address. Enclose a 
check, money order or credit card information. Mail your order to: 


Abacus Software 
P.O. Box 7211 
Grand Rapids, MI 49510 


Or for fast phone service, call 616/241-5510. 
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With ROM listings — For the programmer With ROM listings Especially for the '128- 
Avail. Nov. $19.95 Avail. Nov. $19.95 Avail. Dec. $19.95 Avail. Dec. $19.95 


_.and more books. 











it d 
or two years a best Favorite among pro- Quickhitting, oasy-to- All time best seller. Brand new! Complete Intro to computers an 
sollor, Coed internals grammers. 757000+ use routines for every Revised & oxpanded. maintenance and repair world of scence. fee 


CAD techniques using Learn to design and 
w/ROM listings. $19.95 sold worldwide. $19.95  C-64 owner. $14.95 ROMlistings. $19.95 procedures. $19.95 examples. 


C-128/C-64, Many pro- write your own compiler. 
95 gram examples. $19.95 With examples. $19.95 


PTET EESES | 
ADVENTURE 
GAMEWRITERS 
HANDBOOK FOR 
COMMODORE 6 


SS 


| 





Most in depth treatment Into to machine lan- Techniques never cov- All about using printers A must for cassette 
available. Dozens of 


Write your own adven- Dozens of interesting 
a guage geared to C-64. ered before interrupts, and ‘64. Graphics, text, owner. Hi speed cas- tures. Learn strategy, pro-ects for your ‘64. 
techniques. $19.95  Assombtier incl. $14.95 controllers, etc. $14.95 interfaces. $19.95 sete system. $19.95 motivation. $1495 Easy toread. $12.95 


OPTIONAL DISKETTES 
are also available for 
each of our book titles. 
Each diskette contains 
the programs found in the 
book to save you the time 
of typing them in at the 
keyboard. Price of each 
diskette is $14.95. 


Call now, for the name of your nearest dealer. Or order 
directly from ABACUS with your MC, VISA or AMEX card. 
Add $4.00 for postage and handling. Foreign orders add 
$6.00 per book. Other software and books are also avail- 
able. Call or write for free catalog. Dealer inquiries welcome 
- over 1200 dealers nationwide. Call 616 / 241-5510 


Abacus Software 


P.O. Box 7211 Grand Rapids, MI 49510 
Phone 616/241-5510 Telex 709-101 
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wat your r fingertips. 


- POWe - SUPER SPREADSHEET 
--Start with ¢ an easy to. learn spreadsheet, 
i convenient menus -and 90+. help 


«gséreens. Add fast, shortcut commands for . 


‘the. advanced user. Build in a full range of 


-s flexible features for use with complex 


“worksheets. Combine it with graphics for 
2D/3D.: charts and graphs so you: can 


: ; display: your “what-if data both visually" 


“and. ‘numerically. Finally price it low 


oy _ enough for everyone's budget. That's 
Pili ‘we all power software. $49.95 


XPER - KNOWLEDGE. -BASE.. SOFTWARE ~ wed 


Ordinary data bases are good at memor-. ” 
izing and playing back facts. But expert 
systems help you. wade through. Aun: 
dreds of items to make important’ de- 
cisions. XPER has an easy-to-use entry 
editor to quickly build. your knowledge 
base from raw information; a sophis- 
ticated inquirer to guide you through the ° 
complex decision-making criteria; 
complete ‘data. editing...and: reporting - 
features for analyzing your ‘data. $59. 95 


Call now ‘for free software Pig book catalog and the name of your local dealer. ‘If he is.” 
“ ut.Of stock, have your dealer order our. quality products for you. To order by credit 
card. call 616/241-5510. We accept MC, VISA and AMEX. Add $4. 00: ‘postage: and 


baneling: Pe order (foreign: $8.00 per item). 


_Abacusliitl 


Michigan residents add 4% sales tax. 


llSoftware _ 


_P. 0. ‘Box 721 1 ‘Grand 1 Rapids, MI 49510 For Fast Beruice, Cail. (64 6). 241. ely: 


°. 





J{ int start, end, stop: 
double fahr, celsius: 


colsius=start, 
whilo( ceisius<=end ) 
{ tehr=(9.0/5.0)*celsius +32.0; 


For eer l8 on diskette 


“. Super Most advanced Cc. package “Yor” 
the, C-64/C-128. Since Super C ‘supports’ 
the. full’ K&R language (w/o. bit. fields), 
‘programs “are. transportable to . other. 
-.. Computers. It's a-perfectlearning tool for 
“schools and ‘industry. Super C package 
‘includes a complete source éditor. with: 80 
“column display using horizontal scrolling, 
‘e search/replace,, 41K -source. files. Linker 
“binds up 'to 7.separate modules. I/O: library 
farJ0) 0) oXe]atcwmcie-laler= (com dblavel (ol alcom ll .<omm ol ciatemmelale) 
‘fprintf. Includes runtime package.. $79.95 


Compiler and Software 
Development System 


a : . 
(Super Pascal] 


areate 


For C-64/C-128 on diskette 


Super Pascal - Not just a compiler, but a 
complete development system: It rivals even 
Turbo Pascal© in features. Super Pascal 
includes an advanced source file editor; a 
tull Jensen & Wirth compiler; -system 
programming... extensions,: a’ builtin 


“assembler for specialized. “requirements, 
_and a new.high speed DOS which: is 3X 


faster than standard 1541. Produces fast 
machine code. Supports program overlays, 


high precision 11 felferie arithmetic, debugging 


tools, col gato) alrem colb] Cats) and - more. $59.95 


Call now for our free software and book catalog and the name of 
your nearest dealer: If-he's out of stack, have him order our 
products for you. Credit card orders ‘call 616/241-5510. Add 


' $4.00 shipping and handling per order (foreiqn.add $8.00/item). 


“Abacus |i?! Software 


P.O. Box 7211 Grand Rapids, MI: 49510 
For fast service call 616/241-5510 
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POWER PLAN 





Powerful spread- 
sheet plus builtin 
graphics - display 
your important data 
visually as well as 
numerically. You'll 
learn fast with the 
90+ HELP screens. 
Advanced users 
. can use the short- 
cut commands. For complex spreadsheets, 
you can use POWER PLAN's impressive 
features: cell formatting, text formatting, cell 
protection, windowing, math functions, row 
and column sort, more. Then quickly display 
your results in graphics format in a variety of 
2D and 3D charts. Includes system diskette 
and user's handbook. $49.95 
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CADPAK isa 
superb design and 
drawing tool. You 
can draw directly on 
the screen from 
keyboard or using 
optional lightpen. 
POINTS, LINES, 
BOXes, CIRCLEs, 
and ELLIPSEs; fill 
with solids or patterns; free-hand DRAW; 
ZOON.-in for intricate design of small section. 
Mesuring and scaling aids. Exact positioning 
using our AccuPoint cursor positioning. 
Using the powerful OBJECT EDITOR 
you can define new fonts, furniture, circuitry, 
etc. Hardcopy to most printers. $39.95 
McPen lightpen, optional $49.95 
















CHARTPAK 





Make professional 
quality charts from 


DOMESTIC AUTO SALES 
400 (=GENERAL MOTORS 
SJ=FORO 


E=CHAYSLER 
300] sANERICAN MOTORS 





your data in 
minutes. Quickly 
enter, edit, save 
and recall your data. 
Then interactively 
build pie, bar, line or 
scatter graph. You 
can specify scaling, 
labeling and positioning and watch 
CHARTPAK instantly draw the chart in any 
of 8 different formats. Change the format 
immediately and draw another chart. 
Incudes statistical routines for average, 
deviation, least squares and forecasting. 
Hardcopy to most printers. $39.95 
CHARTPLOT-64 for 1520 plotter $39.95 
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CADPAK Revised Version 








TAS - technical analysis 


XPER - expert system 
XPER is the first 
expert system-a 
new breed of 
intelligent software 
for the C-64 & C- 
128. While ordinary 
data base systems 
are good at repro- 
ducing facts, XPER 
can help you make 
decisions. Using its simple entry editor, you 
build the information into a knowledge base. 
XPER's very efficient searching techniques 
then guide you through even the most 
complex decision making criteria. Full 
reporting and data editing. Currently used 
by doctors, scientists and research 
professionals. $59.95 







Tnexpensive 
What kind 
of styling? 






DATAMAT - data management 


"Best data base 
manager under $50" 
RUN Magazine 


Easy-to-use, yet 
versatile and power- 
ful features. Clear 
menus guide you 
from function to function. Free-form design 
of data base with up to 50 fields and 2000 
records per diskette (space dependent). 
Simple data base design. Convenient and 
quick data entry. Full data editing 
capabilities. | Complete reporting: sort on 
multiple fields and select records for printing 
in your specific format. $39.95 





Technical analysis 
charting package to 
help the serious 
investor. Enter your 
data at keyboard or 
capture it through 
DJN/RS or Warner 
Services. Track 
high, low, close, 
volume, bid and 
ask. Place up to 300 periods of information — 
for 10 different stocks on each data diskette. 
Build a variety of charts on the split screen 
combining information from 7 types of 
moving averages, 3 types of oscillators, 
trading bands, least squares, 5 different 
volume indicators, relative charts, much 
more. Hardcopy to most printers. $59.95 
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The most advanced 
C development 
package available 
for the C-64 or C- 
128 with very com- 
plete source editor; 
full K&R compiler 
(w/o bit fields); 
linker (binds up to 
7 separate mod- 
ules); and set of disk utilities. Very complete 
editor handles search/replace, 80 column 
display with horizontal scrolling and 41K 
source files. The I/O library supports 
standard functions like printf and fprintf. Free 
runtime package included. For C-64/C-128 
with 1541/1571 drive. Includes system 
diskette and user's handbook. $79.95 


BASIC-64 


full compiler The most advanced 
BASIC compiler 
available for the C- 
64. Our bestselling 
software product. 
Compiles to super- 
fast 6510 machine 
code or. very 
compact speed- 
code. You can even 
mix the two in one program. Compiles the 
complete BASIC language. Flexible memory 
management and overlay options make it 
perfect for all program development needs. 
BASIC 64 increases the speed of your 
programs from 3 to 20 times. Free runtime 
package. Includes system diskette and 
user's handbook. $39.95 


ADVANCED DEVELOPMENT PACKAGE 
A © CODE-GENERATOR; 





FORTH 


Language Our FORTH lang- 


uage is based on 


bene a8 the Forth 79 


© P ( RANDOM NUMBER TESTER PRND } 
21 P FORTH DEFINITIONS DECIMAL 
2.P : 7RND 


standard, but also 
ieee 1000 AscHY Sere includes much of 
ect the 83 level to give 


1000 RND { RANDOM 0.999) 


40 7400 ( COLDHN, LINE) you 3 times vocabu- 


SWAP ( EXCHANGE) 


zou oe evanacten lary of fig-Forth. 


pat ele Includes full-screen 

editor, complete 
Forth-style assembler, set of programming 
tools and numerous sample programs to get 
you deeply involved in the FORTH 
language. Our enhanced vocabulary 
supports both hires and lores graphics and 
the sound synthesizer. Includes system 
diskette with sample programs and user's 
handbook. $39.95 








Not just a compiler, 
but a complete 
development sys- 
tem. Rivals Turbo 
Pascal© in both 
speed and features. 
Produces fast 6510 
machine code. 
Includes advanced 
source file editor; 
full Jensen & Wirth compiler with system 
programming extensions, new high speed 
DOS (3 times faster); builtin assembler for 
specialized requirements. Overlays, 11-digit 
arithmetic, debugging tools, graphics 
routines, much more. Free runtime 
package. Includes system diskette and 
complete user's handbook. $59.95 


‘Compiler and Software 
Development Syaem 


VIDEO BASIC 


development The most advanced 
s graphics develop- 
ment package avail- 
able for the C-64. 
Adds dozens of 
powerful commands 
to standard BASIC 
so that you can 
use the hidden 
graphics and sound 


sapabiliies, Commands for hires, multicolor, 
sprite and turtle graphics, simple and 
complex music and sound, hardcopy to most 
printers, memory management, more. Used 
by professional programmers for commerical 
software development. Free runtime 
package. Includes system diskette and 
user's handbook. $39.95 









Other software also available! 
Call now for free catalog and the name of your 
nearest dealer. Phone: 616/241-5510. 


Abacus Software 


P.O. Box 7211 Grand Rapids, MI 49510 616/241-5510 





f:22SS900009 

TTT 

For fast service call 616/241-5510. For postage 
and handling, include $4.00 per order. Foreign 

orders include $8.00 per item. Money orders and 


checks in U.S. dollars only. Mastercard, Visa and 
Amex accepted. 


Dealer Inquiries Welcome 
More than 1200 dealers nationwide 

























































Manage your IVioney 
on your Commodore 128 or 64 
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Personal Portfolio Manager Technical Analysis System 
* online data collection thru DJNRS or « online data collection thru DJNRS or 











Warner Computer or manual entry Warner Computer or manual entry 
* manage stocks, bonds, options, mutual + 7 moving averages, 5 volume indicators, 
funds, treasury bills, others. least squares, trading band, comparison 
* record dividends, interest and transactions and relative charts, more. 
for year end tax requirements * 300 trading days for up to 10 stocks per 
* unique report generator produces reports _—_ disk. Unlimited number of disks 
in any desired format * Hardcopy of charts 
* 30 day money back guarantee * 30-day money back guarantee 
$39.95 + $4.00 shipping $59.95 + $4.00 shipping 






Abacus li Software 


P.O. Box 7211 Grand Rapids, MI 49510 Phone 616/241-5510 Telex 709-101 








COMMODORE 


THE AUTHORITATIVE 
INSIDERS’ GUIDE 








This book guides you deep into the heart of the Commodore 128. 128 Internals 
is written for those of you who want to push your computer to the limits. This book 
contains the complete, fully commented ROM listings of the operating system 
kernal. Here is a list of just some of the things that you can expect to read about: 


Using the interrupts 
Assembly language Programming and Kernal routines 
Z-80 processor and the boot ROM 
Peripherals and the ports 
Programming for sound and music 
Programming the various graphic modes 
Understanding and using the Input/Output ports 
Programming the Memory Management Unit (MMU) 
Using the 80-column chip - 

getting 640 X 200 point resolution 

getting more than 25 lines on the screen 

smooth scrolling 

copying blocks in screen memory 

character length and width management 


About the authors: 

Klaus Gerits is the Director of Product Development at Data Becker Software 
House. Joerg Scheib, a highly experienced programmer and book author, and 
Frank Thrun, an avid Commodore programmer, are also members of the Data 
Becker development staff based in Duesseldorf, W. Germany. 


ISBN 0-91644359-42-9 





A Data Becker book published by 





